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I. INTRODUCTION 



A. PROBLEM STATEMENT 

This thesis deals with data link level interconnection of remote Local Area Net- 
works (LANs) through Critical Data Link (CDL). The Critical Data Link (CDL) is a 
full-duplex, jam-resistant, point-to-point microwave communications system for use 
in imagery and signals intelligence collection systems. The CDL system is designed 
to provide a communications protocol between two or more Fiber Distributed Data 
Interface Local Area Networks (FDD I LAN). While the collection platform LAN 
is in the form of an airborne LAN that provides sensor information, the command 
information is provided by a ground-based LAN. 

This study is concerned with the modeling of a CDL Network Interface (NI) 
using a commercially available network simulation program, MIL 3 Inc.’s Optimized 
Network Engineering Tool (OPNET). 

B. SCOPE 

The scope of this thesis is as follows: 

• Model the interconnection of FDDI LANs in the unique environment of CDL 
deployment. 

• Evaluate the efficiency of the LAN-CDL interface. 

• Establish the necessary basis for running multilink point-to-point protocol in 
CDL deployment. 
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C. BENEFITS 



This thesis continues the development of CDL related simulation/modeling 
programs started in [1]. In that study, the capabilities of OPNET’s original FDDI 
LAN model were enhanced for the use in CDL deployment. We have added: 

• A model of NI that performs load balancing over multiple links. 

• A CDL model with appropriate jamming patterns that faithfully represents 
real conditions. 

Using these, we have carried out several simulation experiments to determine 
the impact of load balancing and jamming on bit throughput. 

D. ORGANIZATION 

This thesis is organized in five chapters. After a brief introduction, the discus- 
sion of FDDI LAN interconnection through CDL is provided in Chapter II. Chapter 
III presents the proposed NI model development in OPNET. The simulation results 
are supplied in Chapter IV. The conclusions and recommendations for future studies 
are in Chapter V. 
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II. INTERCONNECTION OF FDDI LOCAL AREA 
NETWORKS THROUGH CDL 



A. OVERVIEW 

This chapter addresses the issues related to the interconnection of FDDI LANs 
through the unique environment of the CDL. First, architectural alternatives avail- 
able for implementing such a connectivity are discussed. Then, existing bridging 
mechanisms are considered to determine the ideal candidate for a NI for such de- 
ployment. The system specific features of CDL are also stated briefly in order to 
justify the proposed NI architecture. 

B. ISSUES IN HIGH SPEED LAN INTERCONNECTION 

1. Preliminary 

Local area networks are limited in geography, traffic handling capability, 
and the number of stations. A single LAN is not likely to meet the needs of many or- 
ganizations, specifically military applications which require sophisticated command, 
control and communication functions. 

This makes the integration of any LAN topology with other LANs through 
a communication link necessary. The protocols used to achieve this integration can 
be at either the network or data link layers of ISO’s Open Systems Interconnection 
(OSI) Model. 

Interconnection at the network layer is achieved through routing devices. 
At the data link layer it is achieved using bridges. Figure 1 shows the layer hier- 
archies. In general, each layer of an architecture is associated with an additional 
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Figure 1: Protocols relayed by the bridges and routers. 
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level of addressing regardless of the functions performed within a layer. Furthermore, 
functional distinctions between them are major factors to determine the appropriate 
layer of interconnection. 

2. Bridges versus Routers 

Bridges are Medium Access Control (MAC) level store and forward de- 
vices that are independent of higher level protocols. They are transparent to commu- 
nicating end stations. This is particularly desirable in many high speed applications. 
Bridges make simple forwarding or filtering decisions, based on addressing accord- 
ing to the standardized spanning tree algorithm [2]. This algorithm calls for the 
automatic discovery of topology changes in the whole network environment. 

In a general bridge operation, frames are first received and then condi- 
tionally passed to the other LAN depending on a forwarding decision. Effectively, 
frames are filtered through the bridge. Thus, the frames having destination and 
source addresses in the same LAN are not forwarded. Although two LANs are con- 
nected in the frame level, they do not share each other’s local traffic, but only the 
cross traffic. The purpose of the bridge is to allow hosts attached to other LANs to 
communicate as if they were in the same LAN. 

In contrast to bridges, routers are network layer store and forward devices 
that rely on an entire higher level protocol suite, and they are explicitly addressed by 
the communicating end stations [3]. They are capable of searching alternate routes 
having lower transmission delays and using the best path between two nodes in the 
network. Since they can tolerate failures in links and stations, routers are designed 
to enhance availability through the entire network with the penalty of additional 
processing overheads introduced by the network layer. Therefore, bridges become 
more important in a high speed network environment. 
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Recently, both technologies have begun to converge such that simultane- 
ous operation of MAC level bridging and multiple protocol routing services are pro- 
vided in a simple device. These devices are called as brouters [4]. Consequently, the 
individual attractive features of both architectures are supported with the brouters. 

In this study, the NI developed for an FDDI LAN interconnection is 
intended to be a generic model. Other high speed interface models can be developed 
either for ATM or newer networking technologies, as they reach maturity. 

C. PROPOSED BRIDGING METHOD 

1. Current Standards 

Throughout the networking evolution, bridging standardization proce- 
dures addressed the interconnection of separate LANs at geographically close points 
of attachment with local MAC bridges [2]. As LANs became more prevalent both 
in commercial and military applications, the need to interconnect geographically 
separated LANs proved inevitable. 

An emerging IEEE standard is being developed to satisfy this funda- 
mental necessity [5]. This draft standard specifies how a cluster of remote LANs 
can be bridged with remote bridges in the MAC level. Moreover, the proposed stan- 
dard provides all functionalities of local MAC bridges to remote MAC bridges with 
special additions. 

2. Remote Bridging 

Remote MAC bridges, possibly not constrained to the same geographic 
area, interconnect locally situated LANs to the one or more remote MAC bridges 
by using a non-LAN communication medium as depicted in Figure 2. MAC service 
support of remote bridges performs the equivalent communication functions of the 
conventional local bridges across a non-LAN medium. This communication medium, 
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Figure 2: Remote MAC bridge architecture [5]. 

which may be any type of point-to-point link, is operated and controlled by the 
group communications entity within the remote MAC bridge. 

The group communications entity, which is represented in the virtual 
port level, is an abstract communication functionality supported by protocols and 
procedures. As will be stated in the next section, a promising candidate protocol 
for CDL deployment is the Internet Standard Point-to-Point Protocol (PPP) and 
its imbedding into this entity is being addressed in further studies [6]. 
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The spanning tree algorithm and its associated procedures are reempha- 
sized in the draft standard for remote MAC bridges in order to preserve the active 
topology and provide automatic reconfiguration in the entire network. 

Remote bridge functions enforced by the spanning tree topology also 
include forwarding process and learning process associated with filtering database 
as in the case of local MAC bridges. The forwarding process filters the frames 
coming from local LAN on the basis of permissible destination addresses contained 
in the filtering database, while forwarding the frames coming from other LANs to 
their destinations. The learning process updates the filtering database by observing 
the source addresses of received frames. 

The developed model that will be discussed in the next chapter is evalu- 
ated in relation to the proposed remote MAC bridging functionality. However, it is 
not intended to be the implementation of a full-fledged remote MAC bridge. Since 
topology is restricted to a pair of FDDI LANs and probable topology changes are 
not modeled in this generic implementation, bridge functions are fitted into two sep- 
arate stations existing in the interconnected network model. As a result, subsequent 
processes for these functions are preferred to be simple forward and filter decisions 
based on a priori knowledge of the addressing database maintained in these stations. 

D. UNIQUENESS OF THE CDL ENVIRONMENT 
1. Description 

As noted before, CDL is a full-duplex, jam-resistant, point-to-point mi- 
crowave communication system that provides real-time connectivity and interoper- 
ability between multiple collection platforms and surface terminals. In our study, 
CDL is assumed to be a bundle of unidirectional point-to-point bit pipes associated 
with certain data rates along the communication medium. The bit pipes carrying 
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information from surface terminals to the collection platform are grouped together 
as the command link. The link which performs the same functionality in the oppo- 
site direction is called the return link. The return link carries information such as 
voice, platform status, and data gathered by sensors from the collection platform. 

2. System Requirements 

The first set of requirements is simply related to NI architecture and its 
operation. Our model assumes the presence of FDDI LANs on both ends of the CDL 
link itself. In this thesis, the NI functions required when CDL link is established are 
addressed. Thus, the setup procedures such as link establishment and authentication 
are ignored in order to simplify the model simulation sequence. The second set of 
requirements refers to the typical CDL scenarios. The NI implementation should 
be generic so that different scenarios can be supported with a single type of NI. 
Some of the scenarios may require the LAN to be interconneceted to multiple LANs 
permitting multicasting of collected data while others may require relaying of data 
from one LAN to another. The third set of requirements determines the issues 
related to data types and quality of service (QoS). QoS, associated with the link, 
is expected to be provided in the NI using different buffering schemes. Dynamic 
monitoring of link quality will be deployed as a subsequent subprotocol of PPP in 
the further developments of our model. 

3. Asymmetry between Command and Return Link 

The number of bit pipes, and consequently data rate of the return link 
depend upon the particular CDL configuration used. The information is assumed 
to be multiplexed, formatted, and transmitted as a composite stream to the surface 
LAN at various data rates from 10 Mbps to hundreds of Mbps in the full-capacity 
configuration. Several channel hierarchies are also assumed to be available for each 
data rate with each channel being an independent data stream. 
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As previously stated, the command link handles the transmission of user 
commands from the surface LAN to the collection platform LAN. Contrary to the 
return link, the command link is assumed to employ a fixed data rate of 200 Kbps. 
The asymmetry cited in the duplex point-to-point link, enforces separate perfor- 
mance evaluation of the links that will be examined in the Chapter IV. 

4. Considerations on Link Utilization 

The major issue to be addressed in this unique network architecture is 
efficient utilization of the communication link. In CDL deployment, the link is time- 
critical, bandwidth is expensive, and prone to errors due to the probable interference 
and jamming in the operational environment. 

The implementation of an interconnection mechanism as multiple chan- 
nels for the return link requires proper management of these channels. There are 
several studies about high speed protocol controllers which investigate and propose 
high performance [7-9]. 

One of these approaches is the realization of a distributed multilink sys- 
tem which offers a load balancing mechanism for protocol controllers in order to 
increase the total throughput of a high speed data link control system. The pro- 
posed method for distribution of frames to multiple links evaluates several transmis- 
sion allocation algorithms. Our model employs two of the most efficient algorithms 
which are implemented in the NI. First, we modeled the circular allocation algo- 
rithm, which calls for the allocation of frames to the NI transmitters in a circular 
order regardless of the state of individual transmitter buffers [7]. Secondly, we im- 
plemented the empty selection algorithm, which requires the selection of an empty 
area in transmitting-waiting buffers for frame allocation [7]. The decision process, 
based on determining the next candidate for transmission allocation, is also carried 
out by NI in order to provide transparency to end stations. 
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Although load balancing is aimed towards the efficient multiple link uti- 
lization, side effects introduced by this procedure must be examined carefully. The 
slippage among multiple links due to different transmission capacities causes non- 
deterministic arrival times of data on the receiving end. For this reason, after the 
frames are received, reordering of them is unavoidable. Thus, the trade-off is in- 
creased receive-end buffer size necessary for this process or efficient multiple link 
utilization. Our model does not address the issues about resequencing of frames on 
the receiving end. Instead, a simple time division multiplexing procedure is per- 
formed for transmission such that consecutive frames coming from the same station 
are sent through the same transmission channel regardless of the load balancing 
algorithm in use. Thus, the reordering problem is solved automatically with this 
simplification. 

5. The Effects of Jamming 

Another feature intrinsic to CDL is varying bit error rate (BER) affecting 
links severely due to the nature of the deployment environment. A constant BER 
can not be assumed in the model during the existence of the link. The exact system 
performance must be evaluated in the presence of jamming for any typical military 
application. Therefore, the link efficiency must be investigated under two different 
types of jamming models which are described in the next chapter. 
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III. MODELING CDL NETWORK INTERFACE IN 

OPNET 



A. OVERVIEW 

As discussed in Chapter II, the necessity to integrate two FDDI LANs to each 
other in CDL scenario, enforces crucial changes in the modular structure of OPNET 
model. All of these changes are implemented in three phases: 

• Applying the model modifications necessary to implement individual traffic, 
throughput etc. for separate FDDI LANs, 

• Modeling the linking nodes in order to accommodate the generic remote MAC 
bridge features in relation to CDL, and 

• Linking two FDDI LANs in CDL perspective. 

This chapter provides the detailed model development in the order above. The 
explanation of FDDI protocol and model in OPNET will not be presented here. 

The whole documentation for simulation development is available in the eleven 
volume set of manuals provided by MIL 3, Inc. In addition to these manuals, [1] 
serves as an extensive tutorial, particularly, for FDDI LAN development. The ex- 
periences gained through previous studies are readily documented in the aforemen- 
tioned thesis. 

The faithfulness of the developed model will also be discussed in the last section 
of the chapter. 
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B. REVISED FDDI LAN MODEL 



1. FDDI LAN Model in Brief 

OPNET provides a built-in model for FDDI LANs. The modifications 
achieved in a recent study for model development are focused on validating the FDDI 
protocol in OPNET [1], It includes the synchronous and asynchronous transmission 
characteristics of the model. The individual throughput, mean delay and end-to- 
end delay features for the synchronous, prioritized asynchronous and total traffic in 
an FDDI LAN were modeled and examined. FDDI multicasting capability and a 
rudimentary linking node for the interface development are also introduced in [1]. 

OPNET’s FDDI LAN model is implemented in a hierarchy. Each LAN is 
represented as a ring of FDDI stations connected to each other. Figure 3 shows the 
complete ring representation of an FDDI LAN. The internal structure of a 10-station 
FDDI LAN ring is depicted in Figure 4. 

Each station is represented as an FDDI station model which includes 
nodes connected to each other. An FDDI station model is illustrated in Figure 
5. Each node is defined by process models that are represented as state transition 
diagrams. Figures 6-8 show this modular model structure. The detailed explana- 
tions of the models will not be reviewed here for the reasons mentioned before. A 
brief introduction to revised FDDI model in OPNET is intended to lead to a better 
exposition of the model enhancement made in this thesis. 

The ultimate source that determines the behavior of a state in a process 
model, is “C” language codes embedded in that state. Thus, the modifications 
implemented throughout this thesis refer to code changes as well as the illustration 
of interconnected FDDI LAN model. 
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Figure 3: FDDI LAN ring representation. 




Figure 4: Ten-station FDDI LAN, fddi.net. 10. 
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Figure 5: FDDI station model, fddi_station. 




Figure 6: Source process model, “fddi_gen”. 
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Figure 7: MAC process model, “fddi_mac”. 



(default) 




Figure 8: Sink process model, “fddi_sink”. 
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2. Modifications on FDDI Station Model 

a. Preliminary 

The built-in FDDI LAN model in OPNET is designed such that 
only a single LAN’s statistic can be obtained at the end of the model simulation. 
This restriction forces revision of the FDDI station model, and subsequently, its 
associated process models. 

Some of the packet formats, used by all FDDI stations, are also 
modified in order to enhance the functionality of these models in relation to the 
interconnection. 

Throughout the description of model development, OPNET objects 
are highlighted with a typewriter font as a technical convention. While node models 
are highlighted with a typewriter font, process models and simulation attributes are 
set off in double quotes with the same font. Similarly, packet formats are highlighted 
in italics and double quotes within the text. 

b. Source Node Modifications 

The message traffic, in form of packets is generated in llc.src 
which employs the “fddi_gen” process model. The information packet generated 
to be sent to mac is defined as u ’fddi_llc_Jr n . This packet format is also same for 
the packets sent from mac to llc.sink. Moreover, the necessary interface between 
llc.src and mac is provided by “ fddi_mac_re<f interface control information (ICI) 
packet format. After an information packet is received in mac, u ‘}ddi_llc_fi i ’ changes 
its form to u fddi_mac . Regardless of the functional differences between them, all 
of these packets are modified in order to be used in a bridge model. Consequently, 
three lines of code is added in the ARRIVAL state of “fddi_gen” process model to 
set the new fields of u fddi_llc _Ji r ' and u fddi_mac_re<f packet formats. 
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The details about the modifications on packet formats will be stated 
in Section E of this chapter. 

c. Sink Node Modifications 

The packets are counted and the statistics are gathered in the 
llc_sink, or in other words “fddi_sink” process model. All statistics related to a 
LAN are updated through the global variables in this process model. In the case of 
a second LAN, this global nature must be restricted to individual LANs to provide 
a realistic representation of the whole network. Thus, all statistical attributes in 
INIT and STATS are renamed to make them private for the first FDDI LAN. A 
similar procedure is performed again for a second “fddi_sink” process model. This 
process model is named as “fddi2_sink”, and it is embedded into llc_sink nodes 
of the second FDDI LAN that will be interconnected. Furthermore, the DISCARD 
state is modified such that statistics are gathered only for local traffic on the basis 
of incoming frames’ source addresses. 

C. BRIDGE MODEL 

1. Preliminary 

The generic remote MAC bridge that interconnects two FDDI LANs is 
composed of two separate NIs. Since symmetric modifications are done for both 
LANs, for simplicity, the NI in the colllection platform LAN is referred as CPNI, 
and the NI in the surface LAN is referred as SPNI in our FDDI-CDL model. 

2. The CPNI 

a. Station Model 

This represents the FDDI station model functioning as an NI in 
the collection platform LAN. Figure 9 is an illustration of the CPNI employing 
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Figure 9: Collection Platform LAN Network Interface (CPNI). 
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simplified 137.088 Mbps mode return link hierarchy in the OPNET user interface 
window. When compared to the built-in FDDI station model of Figure 7, first 
major distinction seen is the implementation of llc.sink as a queue module. This 
alteration is the fundamental step in creation of a bridge link. The other differences 
from the original model include point-to-point transmitter and receiver nodes. 

This particular station examines the destination addresses of frames 
coming from both LANs. Based on the addressing, frames are either destroyed or 
forwarded to destination. If the frames axe destined for the local LAN, they are 
simply passed to the local MAC level as in the FDDI protocol. The frames destined 
for surface LAN are streamed through transmitters’ buffers from llc.sink. Since 
the CPNI also has the full functionality of an ordinary FDDI station, any frame 
sourced from either LAN may be destined for this station address. 

While the frames destined to the CPNI coming from its local LAN 
are treated within mac, the overhead of MAC access for the frames coming from 
remote LAN via pr_l, is prevented in Logical Link Control (LLC) level. These 
frames are evaluated in the llc.src and conditionally passed to the mac for trans- 
mission along the local LAN, or forwarded to llc.sink for destruction. Therefore, 
the frames destined for the CPNI do not need to be repeated. Instead, they are 
by-passed to llc.sink for higher layer’s access. 

The point-to-point transmitters, named pt.l thru pt_4, are the 
return link transmission sources. Information gathered in collection platform LAN 
is conveyed to the stations on surface LAN by these transmitter nodes. Transmission 
allocation procedure is realized according to the load balancing algorithm in use. 

Conversely, the point-to-point receiver node, pr.l is connected to 
llc.src and it serves as the command link gate to the collection platform LAN. 
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b. Source Node Modifications 



The source node of the CPNI includes “cp_f ddi_gen” process model. 
This process model differs from “fddi_gen” due to the modifications implemented 
in its ARRIVAL state. In this state, frames coming from the surface LAN are de- 
termined first. If there are incoming frames, the CPNI postpones its own frame 
generation until no more frames are received. Then, the received frames’ destina- 
tion addresses are checked. Any frame destined for the CPNI is simply forwarded to 
llc.sink for destruction. Thus, these frames are not sent to mac like the rest of the 
incoming ones. The necessary interface along with the information packet is sup- 
plied to mac with “ fddi_mac_req” ICI packet format. During this ICI packet transfer, 
“pri” field is set to the highest priority which is assigned to the synchronous trans- 
mission. This procedure is essential to keep the bridge model realistic. In FDDI, 
these priorities relate to LAN bandwidth allocation. Since priorities are only local 
to each LAN and FDDI frames do not contain an explicit priority field (unlike IEEE 
802.5), there is no way to determine to which priority level the frame received from 
the other LAN belongs. Therefore, once the NI receives these frames, it always 
sends them as synchronous traffic on its LAN. The “.C” code for “cp_f ddi.gen” is 
provided in Appendix A. 

c. MAC Node Modifications 

The mac of the CPNI employs “cp.fddi.mac” as its process model 
(Appendix B). The modifications made to the original model are categorized in four 
groups as below. 

(1) “static” Declarations. Since we use common basic pro- 
cess models in stations with different names, the functions and variables used by 
the process models are made ‘ ‘static” to prevent name conflicts. 
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(2) INIT State. The token can be generated by any of the 
stations in the original OPNET FDDI model. To simplify the simulation sequence, 
the INIT state code is changed such that only the NI is capable of generating the first 
token. This takes effect only if the simulation environment file is set as described in 
Chapter IV. 

(3) FR_REPEAT State. The frames coming from the phys- 
ical layer are inspected on the basis of destination addresses in this state. The 
modifications in FR_REPEAT refer to the implementation of major bridge func- 
tions. While the frames addressed to the surface LAN are forwarded to llc_sink, 
the ones having a local destination address are propagated in the local LAN. Thus, 
the local traffic is effectively filtered by the NI. 

(4) ENCAP State. The original source address of a frame 
coming from llc_src needs to be preserved in this state. Furthermore, a simple 
check is made for default values of source and destination addresses in “ fddi_mac_req ” 
ICI packet format. Thus, “ fddi_mac_f^ packets containing the same source and 
destination addresses are not erroneously composed in this state. 

d. Sink Node Modifications 

Several modifications are required to the llc_sink of the NI as 
described below. This node uses the “cp_f ddi.sink” process model and acts as 
an interface between the FDDI LAN and CDL. As a result, all three states of this 
process model are modified. The modified “.C” code is in Appendix C. 

(1) INIT State. All the global statistics’ arrays which are used 
in the analysis tool are defined here. Consequently, the statistics array needed for 
the traffic monitoring of return link in each priority, is also defined in this state. 

(2) DISCARD State. Notwithstanding its name, the 
“cp_fddi_sink” process model’s DISCARD state does not discard all the frames. 
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The source and destination addresses of the frames are inspected here. The frames 
having the NI address as their destination are destroyed. Moreover, if they are gen- 
erated by local stations, the related statistics are updated. The frames destined for 
the remote LAN are not destroyed. Instead, they are counted and enqueued in the 
subqueues of llc_si.nk for transmission. The transmitters’ status are continuously 
monitored before and after the transmission with OPNET statistical interrupts de- 
scribed in Section D. The allocation of frames to transmitters using different load 
balancing algorithms is also performed in this state. The details of this procedure 
are provided in Section E. 

(3) STATS State. This state refers to the documentation of 
statistics at the end of the simulation. It is this state that must generate the return 
link related statistics. 

3. The SPNI 

a. Station Model 

This model is one of the FDDI stations located in the surface LAN. 
The SPNI employing the same return link hierarchy mentioned above, is depicted 
in Figure 10. This station has the same functionality of the NI as in collection 
platform LAN, but in the reverse direction. As clearly seen, there exists symmetry 
in the number of transmitters and receivers with respect to its correspondent in 
collection platform LAN. The node, llc.src accesses mac via pr_l thru pr_4 that 
are the downstream gates of surface LAN. The frames destined for the SPNI are 
distinguished by llc_src and forwarded to the llc.sink directly. This process 
prevents the additional MAC access creating a significant overhead. 

Although the SPNI serves as a receive end-point for the return link, 
it is also capable of generating its own frames like other FDDI stations. 
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Figure 10: Surface Platform LAN Network Interface (SPNI). 
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The transmitter, pt_l is command link access node. This node han- 
dles the frames coming from llc_sink and delivers them to the collection platform 
LAN. The forwarding and filtering decisions based on addressing, are implemented 
in llc_sink as in the CPNI. 

Symmetric modifications are carried out in the process models of 
spni with respect to the CPNI. Since much of the details are provided before, only 
major distinctions for each node will be stated below. 

b. Source Node Modifications 

The source node of the SPNI employs “sp_f ddi_gen” as the pro- 
cess model. The modifications implemented in this process model are the same 
as “cp.fddi.gen” with one exception. In the ARRIVAL state, the frames having 
destination addresses in collection platform LAN are passed to llc_sink. This in- 
spection is based on the permanent database maintained in the NIs as can be seen 
in the “.C” code supplied in Appendix D. 

c. MAC Node Modifications 

The process model “sp_fddi_mac” has the same alterations as 
“cp_f ddi_mac” process model’s case in INIT and ENCAP states. The same vari- 
ables and all functions are also defined as “static”. The difference appears in 
FR__REPEAT state. Thus, “.C” code provided in Appendix E includes only this 
modified state. In this state, the frames belonging to the collection platform LAN or 
addressed to the SPNI are passed to llc_sink, while others are simply propagated. 
This decision is also made on the basis of a priori knowledge of addresses. 

d. Sink Node Modifications 

The changes in INIT and STATS states of “sp_fddi_sink” are 
symmetric to the ones in “cp_f ddi_sink” process model. Furthermore, DISCARD 
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state modifications differ from u cp_f ddi_sink” process model’s DISCARD state. 
In this state, the frames destined to the SPNI are destroyed and related statistics 
are updated for the surface LAN. Since there is no multiple link deployment for 
the command link, transmission capacity allocation is based on FIFO queue of 
llc_sink. For this reason, load balancing algorithms are not employed here. The 
“.C” code for “sp_fddi_sink” is provided in Appendix F. 

D. CDL MODEL 

1. OPNET Model for Point-to-Point Links 
a. Preliminary 

OPNET system models are composed of distributed subsystems 
which need a communication mechanism among them. There are several meth- 
ods available in OPNET for the communication between two subsystems, the most 
prevalent being the packet-based one. In the OPNET environment, a packet is 
a data structure facilitating information transfer from one subsystem to another. 
While packet streams, represented as the physical connections, provide transmis- 
sion between nodes in the same subsystem, the ultimate transfer of information to 
other subsystems is employed in the form of communication links. 

As mentioned in Chapter II, CDL deployment requires point-to- 
point link management because of the physical constraints of the environment. 
Point-to-point links, either simplex or duplex, allow packets to be transmitted be- 
tween a single pair of nodes. Each link consists of several transmission channels 
between the source and destination node that it connects. In OPNET, these nodes 
are referred to as transmitters and receivers. 
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b. Transmitters 



These nodes serve as the exit points of a station for packets forwarded 
on point-to-point data transmission links. They are composed of multiple channels, 
each of which is tied to a receiver channel in a remote station via point-to-point 
link. 

Transmitters are built-in FIFO queues with infinite capacity per channel. 
These queues regulate the transmissions in a channel so that only one packet is 
transmitted on the link at any time. 

The status of any transmitter can be monitored with OPNET statistical 
interrupts. These interrupts are represented via statistics wires in the OPNET user 
interface window. Particularly, the “busy” statistic, which is fed back to a node from 
a transmitter plays the most important role for any transmission capacity allocation 
process. 

c. Receivers 

As opposed to transmitters, these nodes act as entry points of a 
station for packets received on point-to-point data transmission links. They employ 
the reverse functionality of the transmitters. After reception of packets on channels 
in the remote station, the packets are forwarded through output streams to the 
attached node of the receiver node for further processing. 

d. Transceiver Pipeline Stages 

In OPNET, point-to-point links can be configured to model packet 
transmission in several ways. Each link includes a series of default or user-definable 
submodels called pipeline stages. The source code for all the default models is 
provided in <opdir> /stdmod/base directory. 
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In any pipeline stage of the model, the data related to each packet 
is used in the various computations related to its transmission. These computations 
are performed in order to identify the reception time and whether or not a packet 
is received correctly. 

Point-to-point links are based on a four stage pipeline that supports 
the transfer of packets from a transmitter to a receiver. These stages are described 
below in brief. 

(1) Transmission Delay. This is the first stage of the transceiver 
pipeline. In this stage, the amount of time required for the transmission of an entire 
packet is calculated. This computation is performed independently for each packet 
transmission on the basis of channel “data rate” and length of the packet. OPNET 
employs the default transmission delay model, “dpt.txdel” for this pipeline stage. 

(2) Propagation Delay. After the first stage, packets are passed 
to the propagation delay pipeline stage. The purpose of this stage is to calculate 
the amount of time for the packet to reach the receiver in the destination node. 
The parameter necessary for this computation is the “delay” attribute of the point- 
to-point link. The default propagation delay model provided by OPNET is called 
“dpt.propdel”. 

(3) Error Allocation. Since the packets are prone to errors 
during transmission, the third stage of the transceiver pipeline allocates errors for 
transmitted packets. The default model, “dpt .error”, uses the “ber” attribute of 
the point-to-point link for this process. The algorithm implemented in this model 
generates a random number of errors with a fixed BER during the whole period of 
the simulation. 

(4) Error Detection and Correction. This is the final stage 
of point-to-point transceiver pipeline. The purpose of this stage is to determine 
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whether or not the received packet can be accepted and forwarded to its destination. 
The comparison is based on the “ecc” attribute of the receiver node. This attribute 
represents the probability of bit error that can be tolerated for acceptability. If it 
is set to zero, default model “dpt.ecc” only accepts error-free packets. Setting a 
non-zero threshold for this attribute corresponds to error correction procedure for 
the received packet. 

2. Error Modeling over Multiple Links 

a. Modifications on Error Allocation Pipeline Stage 

As stated earlier, error modeling over point-to-point links is carried 
out in the error allocation stage of transceiver pipeline. Since the default pipeline 
stage model uses a constant BER as the simulation progresses, a realistic model must 
be developed for the CDL link. For this purpose, default error model “dpt.error” 
is modified, and the new model is renamed as “cdl.pt.error”. 

In OPNET, the necessary modifications for a pipeline stage model 
are done in the u op_models n directory. And, after these modifications, the cus- 
tomized model file must be compiled separately. So, “cdl.pt .error” model is 
compiled with the following command: 

cc -c ~ /op_models/cdl_pt_error.ps.c -I/<opdir>/sys/include 

This procedure is necessary to link other OPNET libraries. Oth- 
erwise, binding errors result during the generation of simulation file. Appendix 
G is the file “cdl.pt.error .ps .c”, containing the modifications described in this 
section. 

In contrast to the default model, “cdl.pt.error” performs error 
allocation with a varying BER. Thus, the link attribute “ber” is disregarded in this 
stage. Instead, new attributes are specified to accomplish a dynamic error allocation 
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stage. Six different attributes are added for each channel in the extended attributes 
menu of the point- to-point link. These attributes are depicted in Figure 11, and 
defined below. 

(1) “jam_ber”. This attribute is the maximum BER on the 
transmission channel of a point-to-point link during jamming. 

(2) “ber_bet _jam_len”. This attribute corresponds to the max- 
imum BER on the transmission channel of a point-to-point link in the duration 
between two consecutive jamming pulses. 

(3) “jam_length”. This is the duration of a jamming pulse af- 
fecting the transmission channel of a point-to-point link. 

(4) “interval_bet_jam_len”. This is the duration between two 
consecutive jamming pulses affecting the transmission channel of a point-to-point 
link. 

(5) “init _jam_offset”. This attribute is the initial offset time 
on the transmission channel of a point-to-point link. This offset is required for the 
channel-swept jammer which will be described later. 

(6) “jammer_type”. The last one of the extended attributes 
specifies the type of the jamming model of which CDL link is exposed to. 

b. Jammer Implementations 

There are two distinct jamming models implemented in this study. 
These are pulsed jammer and channel-swept jammer, respectively. Regardless of the 
jamming type in use, a transmitted packet is first time-stamped in simulation time 
domain. This time-stamp is used to determine whether or not a packet is subjected 
to jamming. After this decision, further procedures are carried out for each jammer 
type independently. 
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(1) Pulsed Jammer. In this model, all transmission channels 
are exposed to separate pulse trains in time. This configuration is achieved by 
setting up proper values for previously described extended attributes in the simula- 
tion environment file. Appendix H is a sample environment file configured for this 
particular model. 

In order to provide a more realistic representation, the durations of 
jamming pulses and BERs during these periods are also randomized with uniform 
distribution. Because of this stochastic process, first four of the extended attributes 
are actually the maximum values that can occur during transmission. Consequently, 
each transmitted packet is subjected to a different BER according to its presence in 
simulation time domain. Figure 12 is an illustration of a pulsed jammer. 

(2) Channel-Swept Jammer. The jammer implemented with 
this model sweeps each transmission channel consecutively in the simulation time 
domain. Again, the necessary configuration for this procedure is provided by the 
extended attributes’ values which are specified in the simulation environment file. 
As opposed to the previous jammer model, the channel-swept jammer does not 
randomize the durations of jamming pulses to maintain consecutive pulse scheme 
in order. However, BERs are still randomized with uniform distribution. A proper 
offset must be specified in the “init.jam.offset” extended attribute of the point- 
to- point link to provide consecutive pulses as depicted in Figure 13. 

E. LAN INTERCONNECTION 

FDDI-CDL interconnection can be realized using the modifications described 
so far. Figure 14 shows the ultimate interconnected model. While the top simplex 
point-to-point link from surface LAN (ringl) to collection platform LAN (ringO) 
represents the command link, other four links in the reverse direction represent the 
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Figure 12: Pulsed jammer representation. 
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Figure 13: Channel-swept jammer representation. 
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Figure 14: Interconnected network model, fddi.cdl. 
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simplified return link hierarchy. In this section, specific features of this model of 
LAN interconnection are stated. 

1. Addressing Through The Remote Bridge 

The interconnection mechanism is based on the forwarding decision made 
by the inspection of station addresses. The stations that reside on LANs have unique 
addresses. Our model employs 10-station FDDI LANs on both sides of the CDL 
link. In order to simplify MAC bridge functions, these addresses are permanently 
installed in the filtering databases of the CPNI and the SPNI. These stations, acting 
as NIs, have the maximum station number of each LAN. Thus, filtering decision 
is based on the comparison of these NI addresses. If the number of stations or 
their addresses need to be changed, those NIs’ filtering databases must be updated 
according to the new address assignments. Besides, the DISCARD state of process 
models of llc_sink nodes of the station models in both LANs must also be modified 
appropriately to obtain individual LAN statistics. 

The address information is sent to the nodes with several packet formats 
in OPNET modeling environment. The packet format, a fddi_mac_fi r ' , allocates 
16 bits to represent station addresses. In current bridging standards [2, 5], the 
addresses are represented as 48 bits within a frame. Thus, the mentioned packet 
format is modified to include 48-bit source and destination addresses. Furthermore, 
the necessity to include source and destination addresses in u fddi_Uc _fi } ' packet 
format results in the same modification. This packet format is used in llc_src 
nodes of NIs to prevent unnecessary MAC access as mentioned in Section C. 

For interface control purposes, “src_addr” field is also added in the 
original u fddi_mac_req n ICI packet format. This address is used by the mac to keep 
the original source address of a frame unmodified during the data transfer between 



36 



LANs. Figures 15-17 show the resulting packet formats in the parameter editor of 
OPNET user interface window. 

2. Load Balancing over Multiple Links 

As stated before, the return link is composed of multiple channels. In 
our model, simplified return link hierarchy is represented as four simplex point-to- 
point links, each having one transmission channel. Data rates for each channel on 
both links are specified as in Figures 18 and 19. 

This multiple channel hierarchy requires an algorithm for transmission 
capacity allocation. The selected algorithm eventually leads to load balancing over 
multiple links. In the OPNET model implemented, this procedure is carried out 
by llc_sink of the CPNI. The node, llc.sink, is in the form of a queue module 
consisting of four subqueues. Thus, the transmission capacity allocation process is 
basically allocating frames to these subqueues that are attached to the individual 
transmitters. In other words, the subqueues act as buffers. Instead of allocating 
frames to the transmitter buffers directly, this method is chosen to monitor the 
effects of load balancing algorithm in use. As stated in Section D, point-to-point 
transmitter buffers are built-in queues with infinite capacity. This approach would 
not be realistic for a bridge model. In a real bridge, insufficient transmission queue 
sizes can cause dropping of frames. In the CDL NI model, the frame currently being 
transmitted resides in the transmitter buffer until its transmission is completed. 
Other frames waiting for transmission reside in the finite subqueues of llc.sink. 
Then, these frames are forwarded to the related transmitter when the “busy” signal 
goes low, meaning that the transmitter channel is idle. This is accomplished by 
OPNET statistical interrupts, and the allocation algorithm calls for the continuous 
monitoring of this signal. 
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Figure 16: 



Modified packet format, u fddi_mac J'd' . 
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Figure 18 : 



Return link data rates and new attributes for llc.sink. 
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Figure 19: 



Command link data rate. 
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The algorithm can be specified for the model from the simulation envi- 
ronment file. So, an extended attribute, “load balancing algorithm”, is defined 
for the CPNI as in Figure 18. Regardless of the load balancing algorithm in use, a 
frame is allocated to a buffer, each time “cp_fddi_sink” process model is executed. 
Then, the order of subqueues is determined with an incrementing index according 
to the allocation algorithm employed. Every subqueue has an associated source 
address field, so that previously allocated frame’s source address is maintained in 
that subqueue. Two algorithms are implemented as described below. 

a. Circular Allocation Algorithm 

Before allocating frames in a circular order to llc.sink subqueues, 
the source address of an incoming frame is inspected first. If that frame is sent 
from a station address which has been previously allocated to that subqueue, the 
new frame is also buffered in the same subqueue. Thus, consecutive frames from 
the same source are sent over the same transmission channel. Otherwise, allocation 
is still done circularly ignoring the state of individual subqueues. Because of the 
different channel data rates, some buffers can fill up and even lead to frame loss, 
unless the sizes of these buffers are selected adequately. 

b. Empty Selection Algorithm 

This algorithm refers to the allocation of frames to subqueues hav- 
ing the maximum empty slots. The frequency of the occurrence of empty slots is 
directly proportional to the data rate of transmission channel. Thus, the buffer 
sizes needed for this algorithm are likely to be less than the ones needed for the 
previous algorithm. Allocation of consecutive frames sent from the same station is 
still implemented in the same manner as the circular allocation algorithm. 
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F. FAITHFULNESS OF THE MODEL 



The CDL NI model is developed with the extensive features provided by OP- 
NET. Modifications to the original models are carried out step-by-step, so that the 
original modularity is not sacrificed with new enhancements. 

The OPNET FDDI protocol model is studied and validated in [1], Further 
model improvements of this thesis are realized on the basis of the results of this 
previous study. During the CDL model development, specific system requirements 
were primarily considered and adapted to OPNET modeling environment. 

In a real CDL deployment, depending on the deployed channel hierarchy, an 
aggregate bit stream at the high frequency is obtained using multiplexing of the 
independent transmission channels. Then, at the receiving end, demultiplexing is 
carried out. Our CDL system implementation does not model the link between 
the output of the multiplexer and the input of the demultiplexer. Instead, the 
multiplexer input and the demultiplexer output are modeled and monitored. In 
other words, the link is not modeled at the aggregate bit stream level, but at the 
individual channel level. This permits us to view the link as a set of independent 
channels rather than a single stream of bits without loosing the realistic nature of 
the link. 

The corruption of packets in a real jamming environment is of an irregular 
nature. The bits in a data stream may be inverted, or random sequences of bit 
patterns may be added to the information packet. In the OPNET modeling en- 
vironment, error allocation is done by inverting the bits present within a packet. 
So, the jammer modeling is based on this constraint. In other words we can not 
model loss of the CDL framing synchronization in OPNET. However, this study 
is targetted at the data link layer and above. Therefore, this limitation does not 
present a problem. Despite this limitation, since our jamming models use a varying 
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BER within the random durations in the simulation time domain, the desired error 
allocation feature is still provided. In the model, the error allocation process within 
a link is such that a random number of errors are introduced in a randomly selected 
packet in each channel. This is essentially what real jamming of the aggregate CDL 
bitstream will result in. Two types of jamming models are investigated in order to 
evaluate system performance in a wider variety of scenarios. 

Finally, interconnection is realized in terms of an upcoming bridging standard 
[5], so that dependability of the model is ensured. 
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IV. MODEL TESTING 



A. OVERVIEW 

This chapter provides several test results in relation to the enhanced capabili- 
ties of our model. These tests include the monitoring of traffic in the whole network 
for individual LANs and the evaluation of transmission capacity allocation algo- 
rithms for the return link. The effects of different jamming patterns on the return 
link are also demonstrated. Similarly, the command link performance is studied in 
brief. 

B. PERFORMANCE METRICS 

During the simulation tests, a moderate traffic load is offered for both LANs 
that are interconnected. The behavior of the OPNET’s FDDI model with varying 
traffic loads was studied previously [1], Therefore, the tests are primarily run and 
evaluated for NI functional characteristics and the CDL link performance during 
jamming. 

The transmission capacity allocation algorithms related to the load balancing 
over multiple links are monitored in the llc.sink node of the CPNI. The buffers 
within this node are observed in order to evaluate these algorithms’ efficiency with 
the “pksize” and “delay” probes in the OPNET analysis editor. These probes 
are simply used to determine the advantages and drawbacks of the load balancing 
implementations. The “pksize” attribute’s name is misleading in OPNET probe 
editor and it refers to the number of packets residing in a subqueue. Thus, while 
“pksize” probe is the means to determine the required buffer sizes, the transmission 
waiting periods of the packets in the buffers are monitored with the “delay” probe. 
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The average BER of the return link is monitored on the SPNI receivers with 
w avg_ber” probes for each transmission channel. In this study, the BER of the 
command link during jamming is not investigated. The utilization of multiple links 
under different jamming patterns is also examined on the transmit and receive-ends 
of the link. Results of the different simulation experiments follow in the next section. 

C. TRAFFIC MONITORING 

1. Overview 

The modifications made within this thesis to the OPNET FDDI model 
provide the individual monitoring of two interconnected LANs. For CDL deploy- 
ment, the collection platform LAN is likely to direct most of the traffic to the return 
link, although there may be still an amount of local traffic under consideration. On 
the other side, the surface LAN directs some of its traffic to the command link while 
introducing a significant amount of traffic locally. For the reasons specified above, 
each LAN must be monitored independently to provide a realistic representation of 
the entire network. 

2. Setup 

The simulation was set up to display local traffic within one LAN and 
the traffic directed to the remote LAN. Both LANs consist of ten FDDI stations, 
generating packets at a constant rate. The stations generated 20000-bit packets at 
an arrival rate of 250 packets per second, so that 50 Mbps of the traffic load is 
expected for a LAN. The stations f9 and f 19 are specified a s the CPNI and the 
SPNI, respectively. While the surface LAN can send packets to all stations in the 
interconnected network model, the collection platform LAN is designated to direct 
its total traffic only to the return link. Both LANs are capable of generating 90 
percent asynchronous traffic at different priorities. Target Token Rotation Time 
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(TTRT) was set to 4ms, and necessary synchronous bandwidth was determined as 
0.08955675 as the required OPNET parameter. This value is a function of TTRT; 
it is computed by following the necessary steps as described in [1] and amounts to 
0.358227 ms/station. 

As mentioned before, the initial tokens are launched by the NIs. Thus, 
in the simulation environment file, the “spawn station” attribute is disabled by 
setting it to 20. This number is chosen arbitrarily, but it must be greater than the 
maximum station number that exists in the entire network model. This is just an 
OPNET hack to keep the “fddi.mac” process model of original “fddi_station” 
unchanged. 

Furthermore, the “accelerate.token” attribute is also disabled by set- 
ting it to zero. When this flag is enabled, the token is blocked in the station which 
has no packets to transmit. This procedure leads a faster simulation, and it is not 
part of the real FDDI protocol. The interconnected model is not allowed to use this 
shared flag, because of the tokens belonging to different LANs. 

3. Results 

Figure 20 shows the local throughput observed in the surface LAN. The 
random generation of destination addresses with uniform distribution led a consid- 
erable amount of traffic to the local stations. Figure 21 is the throughput directed 
to the command link from the surface LAN. In both cases, 90 percent of the traffic 
belongs to the asynchronous transmission as expected. 

Figures 22 and 23 show the traffic contributed to the whole network 
by the collection platform LAN. While there is no local traffic appearing within 
this LAN, all traffic is directed to the return fink with the specified proportion of 
asynchronous transmission. 
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Figure 20: Local throughput of surface LAN. 
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Figure 21: Traffic directed to the command link. 
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Figure 22: Local throughput of collection platform LAN. 
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Figure 23: Throughput directed to the return link. 
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D. RETURN LINK PERFORMANCE 



1. Overview 

The station acting as the CPNI in the collection platform LAN is capable 
of buffering packets in its llc.sink node. The buffering is realized in terms of a 
transmission capacity allocation algorithm for the efficient utilization of the return 
link. The tests run in this section are related to the evaluation of these algorithms 
and the link throughput under jamming. 

Two tests are described here. The first test is monitoring of packets 
accumulated in the buffers with two distinct allocation algorithms. The second test 
is observing the multiple link throughput at both ends of the CDL link. 

2. First Test 

a. Setup 

This test is based on the evaluation of different types of load bal- 
ancing over the multiple links. Both FDDI LANs are configured with the same 
parameters as it is done for the traffic monitoring tests. In the simulation environ- 
ment file, the “load balancing algorithm” attribute is also set appropriately for 
two different runs. This attribute is set to “0” for the circular allocation algorithm 
as it is set to “1” for the empty selection. Besides, the llc.sink subqueue capacities 
are set to hold a maximum of 200 packets. This was intended to observe the buffers’ 
saturation and overflow as the traffic is directed to the return link at a constant 
rate. 

b. Results 

Figure 24 shows the accumulation of packets in the buffers when 
the circular allocation algorithm is in use. As seen, the first transmission channel 
having the lowest data rate causes its buffer to fill up quickly. Consequently, the 
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Figure 24: Accumulation of packets on the CPNI buffers with circular allocation. 

continuous overflow of this buffer is unavoidable with the specified buffer size as 
depicted in Figure 25. 

Conversely, the empty selection algorithm results in equal utilization of 
buffers for the same traffic load without introducing any overflow as shown in Figure 
26. 

The quelling delays of the packets observed for each buffer using both 
algorithms are shown in Figures 27 and 28. As compared to the empty selec- 
tion algorithm, the circular load balancing provides a faster transmission rate for 
the channels having higher data rates and introduce a longer queuing delay for 
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Figure 25: Buffer overflows in the CPNI with circular allocation. 
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Figure 26: Accumulation of packets in the CPNI buffers with empty selection. 
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Figure 27: Queing delay of the CPNI buffers with circular allocation. 
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Figure 28: Queing delay of the CPNI buffers with empty selection. 
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the slower channel. Primarily, the insufficient buffer sizes are the major drawback 
in the circular allocation algorithm, even though multiple links are still efficiently 
utilized. 

As opposed to the circular allocation, empty selection algorithm does 
not require greater buffer sizes. It also offers an efficient utilization scheme with the 
penalty of more queuing delay for the channels with higher transmission capacities. 

3. Second Test 

a. Setup 

This test is intended to verify the effects of jamming models on 
the return link. The same simulation configuration is used in this test as before. 
Moreover, as defined in Chapter III, the jamming related attributes are set up prop- 
erly to model two different jammers. The environment file used for the pulsed 
jammer simulation is provided in Appendix H. For the channel-swept jammer sim- 
ulation, the same type of jamming attributes are set to identical values except 
“init_jam_off set”. This attribute is doubled for each channel so that consecutive 
pulses can be created with proportional offsets. The jamming related attributes of 
the environment file for the channel-swept jammer simulation is in Appendix I. 

The propagation delay of the CDL model is also specified as a typical 
value of 60 ms in the “delay” attribute of each link. 

b. Results 

Figure 29 shows the throughput of each transmitter channel in the 
CPNI end of the return link. As expected, identical number of bits are injected into 
the return link for the channels having the same data rates. The packets awaiting 
transmission in the buffers do not contribute to this statistic. 
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Figure 29: Throughput at the transmit-end of the return link. 

The average BERs introduced by the pulsed jammer and the channel- 
swept jammer are depicted in Figures 30 and 31, respectively. As monitored in the 
receivers of the SPNI, all of the links axe equally degraded in the channel-swept 
jammer’s case due to the consecutive pulses. In the presence of pulsed jammer, the 
links exposed to the longer duration of jamming pulses are affected more severely. 

Consequently, since the packets are corrupted due to jamming dur- 
ing the transmission, the throughput attained in the receive-end is not the same as 
the transmit-end of the return link. The effects of two different jamming models on 
the received throughput can be seen in Figures 32 and 33. 
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Figure 30: Average BER of the return link caused by pulsed jammer. 
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Figure 31: Average BER of the return link caused by channel-swept jammer. 
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Figure 32: Effect of pulsed jammer on the return link throughput. 
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Figure 33: Effect of channel-swept jammer on the return link throughput. 
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E. COMMAND LINK PERFORMANCE 



Although the command link is modeled with respect to the CDL system re- 
quirements, its performance is not studied in as much detail as the return link in our 
simulations. As described before, the command link employs a relatively low fixed 
data rate in its channel hierarchy compared to the return link. Since multiple links 
are not modeled for this particular link, no algorithm for transmission allocation 
is developed in llc.sink node of the SPNI. As a result, the packets waiting for 
transmission to the collection platform LAN are accumulated in the single buffer of 
the SPNI. 

Figure 34 shows the number of packets buffered over time. The accumulation 
is faster due to the lower transmission capacity of the command link. This is also 
emphasized with the buffer queuing delay as depicted in Figure 35. The asymmetric 
data rates existing in the CDL link require a greater buffer size for the SPNI. This 
buffer size must be evaluated with respect to the amount of traffic injected into the 
CDL by the surface LAN. 

Similarly, the information transferred over the command link is monitored in 
both NIs of the interconnected model. Figure 36 is a simple illustration of the link 
throughput in transmit and receive-ends when the command link is not exposed to 
any jamming. 
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Figure 34: Accumulation of packets in the SPNI buffer. 
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Figure 35: Queing delay of the SPNI. 
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Figure 36 : Throughput at the transmit and receive-ends of the command link. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

In this thesis, we have presented a performance analysis of a network interface 
device that interconnects two remote FDDI LANs using the CDL. The efficiency of 
the CDL model is evaluated with two different jamming patterns that faithfully rep- 
resent the real environmental conditions. The distribution of load over the multiple 
links is also investigated using different transmission capacity allocation algorithms 
so that the overall link utilization can be maximized. The need for such algorithms 
is based on the near-capacity return link traffic load that is expected in the intercon- 
nected network. It is seen that the circular allocation algorithm is able to provide 
a faster transmission for the channels having higher data rates with the penalty of 
increased buffer size for the slower channels. When the empty selection algorithm 
is in use, identical buffer sizes can be selected for any transmission channel, if the 
drawback of longer queuing delays for faster channels are acceptable. 

This thesis lays the foundation for simulating the multilink point-to-point pro- 
tocol over the CDL in the further development of the network interface features for 
the CDL project. 

B. RECOMMENDATIONS 

Further developments of our model will include: 

1. Simulation of a link monitoring protocol over the return and command 
link. This capability will facilitate feedback to the LAN applications 
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(end-systems) about the link status and permit end-to-end performance 
analysis. 

2. Incorporation of a forwarding/filtering database in the NI. 

3. Incorporation of a traffic generation in the LAN end-systems that is closer 
to the characteristics of real traffic patterns. 

4. Accurate estimation of NI buffer capacity for individual channels with 
various effective BERs over the link. 

Since the tool-specific token acceleration feature is disabled during our simu- 
lations, a new mechanism need to be employed for a faster simulation in a larger 
network model. 
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APPENDIX A 

CPNI SOURCE “C” CODE 

“cp_fddi_gen.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* Process model C form tile: cp.fddi_gen.pr . c */ 

2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 



3 /* OPNET system definitions */ 

4 #include <opnet.h> 

5 #include "cp.fddi_gen.pr .h" 

6 FSM.EXT.DECS 



7 


/* Header block */ 




8 


#def ine MAC_LAYER_OUT_STREAM 


0 


9 


#def ine LLC.SINK.OUT.STREAM 


1 /*18APR94*/ 


10 


/* define possible service classes 


for frames */ 


11 


#def ine FDDI.SVC.ASYNC 


0 


12 


#def ine FDDI.SVC.SYNC 


1 


13 


/* define token classes */ 




14 


#def ine FDDI.TK.NONRESTRICTED 


0 


15 


#def ine FDD I _TK_ RESTRICTED 


1 



16 


/* State variable definitions */ 




17 


typedef struct 




18 






19 


FSM.SYS.STATE 




20 


Distribution* 


sv.inter_dist.ptr; 


21 


Distribution* 


sv.len.dist.ptr ; 


22 


Distribution* 


sv.dest_dist.ptr ; 


23 


Distribution* 


s v.pkt.priorit y.ptr ; 


24 


Obj id 


sv.mac.objid; 


25 


Objid 


sv.my.id; 


26 


int 


s v.low.dest _addr ; 


27 


int 


sv_high_dest_addr ; 
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28 


int 


s v_ s t at i on. addr ; 


29 


int 


sv.src.addr ; 


30 


int 


sv.low.pkt .priority ; 


31 


int 


s v.high.pkt.priority ; 


32 


double 


sv.arrival.rate ; 


33 


double 


sv_mean_pk_len ; 


34 


double 


sv.async.mix; 


35 


Ici* 


sv.mac.iciptr; 


36 


Ici* 


sv.mac.iciptrl ; 


37 


Ici* 


sv.llc.ici.ptr ; 


38 


Packet* 


sv.pkptrl ; 


39 


} cp.f ddi.gen.state ; 




40 


#deline 


pr.st at e.ptr 


( (cp.f ddi.gen.state*) Siml.Mod.State.Ptr) 


41 


#define 


inter.dist.ptr 


pr.st ate_ptr->sv_inter_dist_ptr 


42 


#define 


len.dist.ptr 


pr.state_ptr->sv_len_dist_ptr 


43 


#define 


dest.dist.ptr 


pr.state.ptr->sv_dest_dist.ptr 


44 


#def ine 


pkt_priority_ptr 


pr_state_ptr->sv_pkt_priority_ptr 


45 


#def ine 


mac.ob j id 


pr.state.ptr->sv.mac_obj id 


46 


#def ine 


my. id 


pr.state_ptr->sv_my_id 


47 


#define 


low.dest.addr 


pr_state_ptr->sv.low_dest_addr 


48 


#def ine 


high.dest.addr 


pr.st at e_ptr->sv.high.dest_addr 


49 


#deline 


station.addr 


pr_state.ptr->sv_station_addr 


50 


#def ine 


src.addr 


pr_state_ptr->sv_src_addr 


51 


#def ine 


low.pkt .priority 


pr.st at e_ptr->sv_low_pkt_priority 


52 


#define 


high.pkt .priority 


pr.st at e_ptr->s v.high.pkt.priority 


53 


#def ine 


arrival.rate 


pr_state_ptr->sv_arrival_rate 


54 


#def ine 


mean.pk.len 


pr.st at e_ptr->sv_async_mix 


55 


#def ine 


mac.iciptr 


pr_state.ptr->sv_mac_iciptr 


56 


#def ine 


mac.iciptrl 


pr_8tate_ptr->8v_mac_iciptrl 


57 


#def ine 


llc.ici.ptr 


pr.st ate.pt r-> 8 v.llc.ici.ptr 


58 


#deline 


pkptrl 


pr. state .pt r-> s v.pkpt r 1 



59 /* Process model interrupt handling procedure */ 



60 


void 




61 


cp.fddi.gen 


0 


62 






63 


Packet 


♦pkptr; 


64 


int 


pklen; 


65 


int 


dest.addr; 


66 


int 


i, restricted 


67 


int 


pkt.prio ; 


68 


FSM.ENTER (cp_iddi_gen) 
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69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 



87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 



98 

99 

100 
101 
102 

103 

104 

105 



FSM.BLOCK.SWITCH 

{ 

/* ♦/ 

/** state (INIT) enter executives **/ 

FSM.STATE.ENTER.UNFORCED (0, stateO.enter.exec , M INIT M ) 

{ 

/* determine id of own processor to use in finding attrs */ 
my.id = op.id.self (); 

/* determine address range for uniform desination assignment */ 
op.ima_obj_attr.get (my.id, "low dest address", ftlow.dest.addr) ; 
op_ima_obj.attr.get (my.id, "high dest address", fthigh.dest.addr) ; 

/* determine object id of connected 'mac* layer process */ 
mac.objid = op.topo.assoc (my.id, 0PC.T0P0.ASS0C.0UT, 

OPC.OB JMTYPE.MODULE , 

HAC.LAYER.OUT. STREAM) ; 

/♦ determine the address assigned to it */ 

/* which is also the address of this station */ 

op_ima.obj.attr.get (mac.objid, "station.address" , Astation.addr) ; 



/* set up a distribution for generation of addresses */ 
dest.dist.ptr = op.dist.load ("unif orm.int" , low.dest.addr , 
high.dest.addr) ; 

/♦ added 26DEC93 */ 

/♦ determine priority rsrnge for uniform traffic generation ♦/ 
op_ima_obj.attr.get (my.id, "high pkt priority", fthigh.pkt .priority) ; 
op_ima.obj.attr.get (my.id, "low pkt priority", ftlow.pkt.priority) ; 

/* set up a distribution for generation of priorities */ 
pkt.priority.ptr = op.dist.load ( "unif orm.int " , low.pkt .priority , 
high.pkt .priority) ; 

/* above added 26DEC93 */ 



/* also determine the arrival rate for packet generation */ 
op.ima_obj.attr.get (my.id, "arrival rate", fcarrival.rate) ; 

/* determine the mix of asynchronous and synchronous */ 

/* traffic. This is expressed as the proportion of */ 

/* asynchronous traffic, i.e a value of 1.0 indicates */ 

/* that all the produced traffic shall be asynchronous. */ 
op.ima_obj.attr.get (my.id, "async.mix" , tasync.mix) ; 

/* set up a distribution for arrival generations */ 
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106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 



if (arrival_rate != 0.0) 

{ 

/♦ arrivals axe exponentially distributed, with given mean 
inter_dist_ptr = op_dist_load ("constant”, 1.0 / arrival_r 

0 . 0 ); 

/♦ determine the distribution 1 or packet size ♦/ 
op_ima_obj_attr_get (my_id, "mean pk length", 

taean_pk_len) ; 

/♦ set up corresponding distribution ♦/ 

len_dist_ptr = op_dist_load ("constant" , mean_pk_len , 0.0) 

/♦ designate the time of first arrival ♦/ 
fddi_gen_schedule () ; 

/♦ set up an interface control information (ICI) structure 
/♦ to communicate parameters to the mac layer process ♦/ 

/♦ (it is more efficient to set one up now and keep it ♦/ 
/♦ as a state variable than to allocate one on each packet 

xfer) */ 

mac_iciptr = op_ici_create ("fddi_mac_req") ; 

> 

> 



/** blocking after enter executives of unforced state. **/ 
FSH.EXIT (l,cp_fddi_gen) 



/** state (INIT) exit executives **/ 
FSM.STATE.EXIT.UNFORCED (0, stateO.exit.exec , "HIT") 

> 



/** state (INIT) transition processing **/ 
FSH^TRANSIT.FORCE (1, statel_enter_exec , ;) 
/* 



*/ 



/** state (ARRIVAL) enter executives **/ 

FSH.STATE.ENTER.UNFORCED (1, statel.enter.exec , "ARRIVAL") 

{ 

/* This station should receive frames from the other lan as long as « 
/* there are frames in the input streams addressed to this lan */ 
/♦check if the interrupt type is stream interrupt ♦//♦12APR94*/ 
if (op_intrpt_type() == OPC.INTRPT.STRM) 
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186 
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193 



/* if it is, get the packet in the input stream causing interrupt */ 
pkptrl = op_pk_get(op_intrpt_strm()) ; 

/* get the destination address of the frame */ 

/* 16APR94 */ 



op_pk_nfd_get (pkptrl, "dest.addr", kdest.addr) ; 

/* check if this frame destined for the local bridge station */ 
if(dest_addr == station.addr) 

/* if it is, send the packet to llc_sink directly */ 

/* in order to prevent overhead of mac access */ 
op_pk_s end (pkptrl , 

LLC.SIHK.OUT.STREAM) ;/*19APR94*/ 



else 



16APR94 */ 
*/ 



/*12APR94*/ 



/* this packet is to send to mac */ 

/* determine the source address of the frame */ 

°P-Pk«nfd.get (pkptrl , "src.addr" , 4fcsrc_addr) ; 

/* set up an ICI structure to communicate parameters to */ 

/* MAC layer process */ 

mac.iciptrl = op_ici_create( M fddi_mac_req M ) ; 

/* place the original source address into the ICI *//* 

/* M fddi_mac_req M is modified so that it contains the original 

/* source address from the remote lam */ 
op_ici_attr_set (mac.iciptr 1 , "src.addr" , src_addr) ; 

/* place the destination address into the ICI */ 



are assumed to have*/ 
accumulate */ 



op_ici_attr_set(mac_iciptrl, M dest_addr" , dest.addr) ; 

/* assign the service class and requested token class */ 

/* At this moment the frames coming from the remote lan 

/* the same priority as synchronous frames in order not to 



their destinations */ 



FDDI.SVC.SYHC) ; 

FDDI.TK JONRESTRICTED) ; 



/* packets on the bridge station mac and instead to deliver 



/* as soon as possible */ 
op_pk_nfd_set (pkptrl , "pri M , 8); 
op_ici_attr_set(mac_iciptrl, "svc. class" , 



op_ici_attr_set (mac_iciptr 1 , "pri" , 8) ; 
op_ici_attr_set (mac.iciptr 1 , "tk.class" , 



/* send the packet coupled with the ICI */ 
op_ici_install(mac_iciptrl) ; 

0 P-Pk-S end (pkptrl , MAC.LAYER.OUT.STREAM) ; 

> 

> 

/* otherwise, generate the frame : 12APR94 */ 
else 



/* determine the length of the packet to be generated */ 
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194 



pklen = op_dist_outcome (len_dist_ptr) ; 
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234 



/* determine the destination */ 

/* dont allow this station's address as a possible outcome */ 
gen_packet : 

dest.addr = op.dist.outcome (dest_dist_ptr) ; 
i f (dest_addr »= -1 tt dest.addr == station_addr) 
goto gen_packet; 

/* 26DEC94 t 29JAN94: determine its priority */ 
pkt.prio = op_dist_outcome (pkt_priority_ptr) ; 

/* create a packet to send to mac */ 
pkptr = op_pk_create_fmt ("fddi_llc_fr") ; 

/* assign its overall size. */ 
op.pk.total.size.set (pkptr, pklen); 

/* assign the time of creation */ 
op_pk_nfd_set (pkptr, "cr_time", op_sim_time ()); 

/* place the destination address into the ICI */ 

/* (the protocol_type field will default) */ 
op_ici_attr_set (mac.iciptr, "dest_addr" , dest_addr) ; 

/* place the source address into the ICI *//* 17APR94*/ 
op_ici_attr_set (mac_iciptr, "src.addr", station.addr) ; 

/* assign the priority, and requested token class */ 

/* also assign the service class; 29JAN94: the fddi_llc_fr */ 
/♦ format is modified to include a "pri" field. */ 

if (op_dist_unif orm (1.0) <= async_mix) 

{ 

op_pk_nfd_set (pkptr, "pri", pkt_prio) ; /* 29JAN94 */ 

op_ici_attr_set (mac_iciptr, "svc_class" , 

FDDI_SVC_ASYNC) ; 

op_ici_attr_set (mac_iciptr, "pri", pkt_prio) ; /* 29JAN94 */ 

> 

else{ 

op_pk_nfd_set (pkptr, "pri", 8); /* 29JAN94 */ 

op_ici_attr_set (mac.iciptr, "svc_class", 

FDDI.SVC.SYNC) ; 

op_ici_attr_set (mac_iciptr, "pri", 8); /* 29JAN94 */ 

> 

/* Request only nonrestricted tokens after transmission */ 
op_ici_attr_set (mac_iciptr , "tk_class" , 

FDDI_TK_N0NRESTRICTED) ; 

/* Having determined priority, assign it; 26DEC93 */ 

/* op_ici_attr_set (mac.iciptr, "pri", pkt_prio); */ 
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235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 
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253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 



/* send the packet coupled with the ICI */ 
op_ici_install (mac.iciptr) ; 

/* check il destination address is in the remote lan */ 
il(dest_addr > 9) 

/* il it is, this packet is to send llc_sink directly */ 
oP-Pk-send (pkptr, LLC_SINK_OUT_STREAM) ; 

/♦18APR94*/ 

else 

/* it not, the packet is destined lor local lain, so send to mac 

*/ 

OP-Pk-send (pkptr, MAC_LAYER_OUT_STREAM) ; 



/* schedule the next arrival */ 
lddi_gen_schedule () ; 

> 

> 



/** blocking alter enter executives ol unlorced state. **/ 
FSM.EXIT (3 , cp_lddi_gen) 



/** state (ARRIVAL) exit executives **/ 
FSM.STATE.EXIT.UNFORCED (1, statel_exit_exec , ‘‘ARRIVAL") 
{ 

> 



/** state (ARRIVAL) tramsition processing **/ 
FSM_TRANSIT_FORCE (1, state l_enter_exec , ;) 

/* 



*/ 



> 



FSM.EXIT (0 , cp_lddi_gen) 

> 



void 

cp_l ddi_gen_s vau: (prs_ptr , var_name , vaur_p_ptr) 
cp_lddi_gen_state *prs_ptr; 

char *var_name, **vatr_p_ptr ; 

{ 

FIN (cp_lddi_gen_svau: (prs.ptr)) 
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291 
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308 



309 

310 

311 

312 



♦var.p.ptr = VOS.NIL; 

if (Vos.String.Equal ("inter.dist.ptr" , var.name) ) 

★var.p.ptr = (char *) (fcprs.ptr->sv.inter.dist.ptr) ; 
if (Vos.String.Equal ("len.dist.ptr" , var.name)) 

♦var.p.ptr = (char *) (fcpr8_ptr->8v.len.dist.ptr) ; 
if (Vos.String.Equal ("dest.dist.ptr" , var.name)) 

♦var.p.ptr = (char *) (Jfcprs_ptr->sv_dest.dist_ptr) ; 
if (Vos.String.Equal ("pkt.priority.ptr" , var.name)) 

♦var.p.ptr = (char *) (&prs.ptr->sv.pkt.priority_ptr) ; 
if (Vos.String.Equal ("mac.objid" , var.name) ) 

♦var.p.ptr = (char ♦ ) (fcprs.ptr->sv.mac_objid) ; 
if (Vos.String.Equal ("my.id" , var.name)) 

♦var.p.ptr = (char ♦ ) (feprs_ptr->Bv_my_id) ; 
if ( Vo s.St ring. Equal ("low.dest.addr" , var.name) ) 

♦var.p.ptr = (chax ♦) (&prs.ptr->sv.low.dest.addr) ; 
if (Vos_String_Equal ("high.dest.addr" , var.name)) 

♦var.p.ptr = (char ♦ ) (&prs_ptr->sv_high_dest_addr) ; 
if (Vos.String.Equal ("station.addr" , var.name)) 

♦var.p.ptr = (char *) (&prs_ptr->sv.station_addr) ; 
if (Vos.String.Equal ("src.addr" , var.name)) 

♦var.p.ptr = (char ♦) (&prs.ptr->sv.src_addr) ; 
if (Vos.String.Equal ("low.pkt .priority" , var.name)) 

♦var.p.ptr = (char ♦) (fcprB_ptr->sv.low_pkt_ prior ity) ; 
if (Vos.String.Equal ("high.pkt .priority" , var.name)) 

♦var.p.ptr = (char *) (*prs_ptr->sv.high_pkt .priority) ; 
if (Vos.String.Equal ("arrival .rate" , var.name)) 

♦var.p.ptr = (char ♦ ) (&prs_ptr->sv.arrival.rate) ; 
if (Vos.String.Equal ("mean.pk.len" , var.name)) 

♦var.p.ptr = (char ♦ ) (fcprs.ptr->sv.mean.pk_len) ; 
if (Vos.String.Equal ("async.mix" , VcLr.name)) 

♦var.p.ptr = (char ♦ ) (*prs_ptr->sv.async.mix) ; 
if (Vos.String.Equal ("mac.iciptr" , var.name)) 

♦var.p.ptr = (chax ♦ ) (&prs.ptr->sv_mac_iciptr) ; 
if (Vos.String.Equal ("mac.iciptrl" , var.name)) 

♦var.p.ptr = (char ♦ ) (fcprs_ptr->sv_mac.iciptrl) ; 
if (Vos.String.Equal ("llc.ici.ptr" , var.name)) 

♦var.p.ptr = (char ♦ ) (fcprs_ptr->sv_llc_ici_ptr) ; 
if (Vos.String.Equal ("pkptrl" , var.name)) 

♦var.p.ptr = (char *) (&prs_ptr->sv.pkptrl) ; 



F0UT; 

> 



void 

cp.fddi.gen.diag () 

{ 

Packet *pkptr; 
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int 


pklen; 


int 


dest_addr ; 


int 


i, restricted; 


int 


pkt.prio; 



FIN (cp_f ddi_gen_diag ()) 



FOUT; 

> 



void 

cp_fddi_gen_terminate () 

{ 

Packet *pkptr; 

int pklen; 

int dest_addr; 

int i, restricted; 

int pkt.prio; 

FIN (cp_fddi_gen_terminate ()) 



FOUT; 

> 



Compcode 

cp_fddi_gen_init (pr_state_pptr) 

cp_fddi_gen_state **pr_state_pptr ; 

{ 

static VosT_Cm_Obtype obtype = 0PC_NIL; 

FIN (cp_fddi_gen_init (pr_state_pptr)) 

if (obtype == OPC.NIL) 

{ 

if (Vos_Catmem_Register ("proc state vars (cp_fddi_gen) M , 

sizeof (cp_fddi_gen_state) , Vos.Nop, ftobtype) == VOSC.FAILURE) 
FRET (OPC.COMPCODE.FAILURE) 

> 

if ((*pr_state_pptr = (cp_fddi_gen_state*) Vos_Catmem_Alloc (obtype, 1)) 
OPC.NIL) 

FRET (OPC_CQMPCODE_FAILURE) 

else 

{ 



73 



348 

349 

350 

351 



352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 



(*pr_state_pptr)->current_block = 0; 
FRET (0PC_C0MPC0DE_SUCCESS) 

> 



/* static added 2DEC93, on advice from MIL3 ♦/ 
static 

fddi_gen_schedule () 

double inter_time; 

/* obtain an interarrival period according to the */ 

/* prescribed distribution */ 

inter_time = op_dist_outcome (inter_dist_ptr) ; 

/* schedule the arrival o t next generated packet */ 
op_intrpt_schedule_sell (op_sim_time () + inter_time, 0); 
> 
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APPENDIX B 

CPNI MAC “C” CODE 

“cp_fddi_mac.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* Process model C form file: cp.fddi.mac .pr . c */ 

2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 



3 /* OPNET system definitions */ 

4 #include <opnet . h> 

5 #include "cp_f ddi.mac .pr .h" 

6 FSM.EXT.DECS 



7 /* Header block */ 

8 /* Define a timer structure used to implement */ 

9 /* the TRT and THT timers. The primitives defined to */ 

10 /* operate on these timers can be found in the */ 

11 /* function block of this process model. */ 

12 typedef struct 

13 i 

14 int enabled; 

15 double start .time; 

16 double accum; 

17 double target.accum; 

18 > FddiT.Timer; 



19 /♦ Declare certain primitives dealing with timer. s */ 

20 double fddi.timer.remaining (); 

21 FddiT.Timer* fddi.timer.create (); 

22 double f ddi.timer.value (); 

23 /* Scratch strings for trace statements */ 

24 char strO [512] , strl [512] ; 



25 /* define constants particular to this implementation */ 

26 #def ine FDDI.MAX.STATIONS 512 

27 /* define possible values for the frame control field */ 

28 #def ine FDDI.FC.FRAME 0 
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29 #def ine FDDI.FC.TOKEN 1 

30 /* define possible service classes for frames */ 

31 #def ine FDDI.SVC.ASYNC 0 

32 #def ine FDDI.SVC.SYNC 1 

33 /* define input stream indices */ 

34 #def ine FDDI_LLC.STRM.IN 1 

35 #def ine FDDI.PHY.STRM.IN 0 

36 /* define output stream indices */ 

37 #def ine FDDI_LLC.STRM.OUT 1 

38 #def ine FDDI.PHY.STRM.OUT 0 

39 /* define token classes */ 

40 #def ine FDD I _TK. NON RESTRICTED 0 

41 #def ine FDDI.TK.RESTRICTED 1 

42 /* Ring Constants */ 

43 #def ine FDDI.TX.RATE 1.0e+08 

44 #def ine FDDI.SA_SCAN.TIME 28.0e-08 

45 /* Token transmission time: based on 6 symbols plus 16 symbols of preamble */ 

46 #def ine FDDIC_TOKEN.TX.TIME 88.0e-08 



47 /* Codes used to differentiate remote interrupts */ 

48 #def ine FDDIC.TRT.EXPIRE 0 

49 #def ine FDDIC.TK.INJECT 1 



50 /* Define symbolic expressions used on transition */ 

51 /* conditions and in executive statements. */ 

52 #def ine TRT.EXPIRE \ 

53 (op.intrpt.type () == 0PC.INTRPT.REM0TE kk op.intrpt.code () == FDDIC.TRT.EXPIRE) 

54 #def ine TK.RECEIVED \ 

55 phy.arrival kk \ 

56 frame. control == FDDI.FC.T0KEN 

57 #def ine RC.FRAME \ 

58 phy.arrival kk \ 

59 frame.control == FDDI.FC.FRAME 

60 #def ine FRAME. ARRIVAL \ 

61 op.intrpt.type () == OPC.INTRPT.STRM kk \ 

62 op.intrpt.strm () == FDDI.LLC.STRM.IN 

63 #define STRIP my.address == src.addr 

64 /* Define the maximum value for ring.id. This is the */ 
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65 /* maximum number of FDDI rings that can exist in a */ 

66 /* simulation. Note that if this number is changed, */ 

67 /* the initialization for f ddi.claim.start below must */ 

68 /* also be modified accordingly. */ 

69 #def ine FDDI.MAX.RING.ID 8 

70 /* Declare the operative TTRT value 'T.Opr 1 which is the final */ 

71 /* negotiated value of TTRT. This value is shared by all stations */ 

72 /* on a ring so that all agree on its value. */ 

73 double fddi.t.opr [FDDI.MAX.RING.ID] ; 

74 #define Fddi.T.Opr (fddi.t.opr [ring.id]) 

76 /* This flag indicates that the negotiation for the final TTRT */ 

76 /* has not yet begun. It is statically initialized here, and */ 

77 /* is reset by the first station which modifies T.Opr. */ 

78 /* Initialize to 1 for all rings.*/ 

79 static 

80 int f ddi.claim.start [FDDI_MAX.RING.ID] = {1,1, 1,1, 1,1, 1,1}; 

81 #define Fddi_Claim_Start (f ddi.claim.start [ring.id]) 



82 /* Declare station latency parameters. */ 

83 /* These sire true globals, so they do not need to be arrays. */ 

84 double Fddi.St .Latency ; 

85 double Fddi.Prop.Delay ; 

86 /* Declare globals for Token Acceleration Mechanism. */ 

87 /* Hop delay and token acceleration are true globals. */ 

88 double Fddi.Tk.Hop.Delay ; 

89 static 

90 int Fddi.Tk.Accelerate = 1; 

91 /* These are actually values shared by all nodes on a ring, */ 

92 /* so they must be defined as arrays. */ 

93 double fddi.tk_block_base.time [FDDI.MAX.RING.ID] ; 

94 #define Fddi.Tk.Block.Base.Time (fddi.tk.block_base.time [ring.id]) 

95 int fddi.tk.block.base. station [FDDI.MAX.RING.ID] ; 

96 #def ine Fddi.Tk.Block.Base.Station (f ddi.tk.block.base.station [ring.id]) 

97 int fddi.tk.blocked [FDDI.MAX.RING.ID]; 

98 #def ine Fddi.Tk.Blocked (fddi.tk.blocked [ring.id]) 

99 int fddi.num.stations [FDDI.MAX.RING.ID] ; 

100 #define Fddi.Num.Stations (fddi.num.stations [ring.id]) 

101 int fddi.num.registered [FDDI.MAX.RING.ID] ; 

102 #define Fddi.Num.Registered (fddi.num.registered [ring.id]) 

103 Objid fddi. address. table [FDDI.MAX.RING.ID] [FDDI.MAX.STATI0NS] ; 

104 #define Fddi.Address.Table (f ddi.addr ess. table [ring_id] ) 
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105 /* Below is part o f the OPBUG 2081 patch; FB ended here, before. -Mix */ 

106 /* Event handles for the TRT are maintained at a global level to */ 

107 /* allow token acceleration mechanism to adjust these as necessary */ 

108 /* when blocking and reinjecting the token. TRT.handle simply */ 

109 /* represents the TRT for the local MAC */ 

110 Evhandle fddi.trt .handle [FDDI.MAX.RING.ID] [FDDI.MAX.STATIONS] ; 

111 #define Fddi.Trt .Handle (f ddi.trt .handle [ring.id]) 

112 Jfdefine TRT.handle Fddi.Trt.Handle [my.address] 

113 /* Similarly, the TRT data structure is maintained on a global level. */ 

114 FddiT.Timer* fddi.trt [FDDI_MAX.RING.ID] [FDDI.MAX.STATIONS] ; 

115 #define Fddi.Trt (fddi.trt [ring_id]) 

115 #define TRT Fddi.Trt [my.address] 

116 /♦ Registers to record the expiration time of each TRT when token is blocked. */ 

117 double f ddi.trt. exp. time [FDDI.MAX_RING.ID] [FDDI.MAX.STATIONS]; 

118 #define Fddi.Trt.Exp.Time (fddi.trt. exp.time [ring.id]) 

119 /* the 'Late.Ct* flag is declared on a global level so that it can be ♦/ 

120 /♦ set at the tim ewhere the token is injected back into the ring. */ 

121 int fddi.late.ct [FDDI.MAX_RING.ID] [FDDI.MAX.STATIONS]; 

122 #define Fddi.Late.Ct (fddi.late.ct [ring.id]) 

123 #define Late.Ct Fddi.Late.Ct [my.address] 



124 /♦ Convenient macro for setting TRT for a given station and absolute time. */ 

125 #define TRT.SET( station. id, abs.time) \ 

126 f ddi.timer.set (Fddi.Trt [station.id] , abs.time - op.sim.time() ) ; \ 

127 Fddi.Trt .Handle [station.id] = op.intrpt.schedule.remote (abs.time, \ 

128 FDDIC.TRT.EXPIRE , Fddi.Address.Table [station.id]); 



129 /* State variable definitions */ 

130 typedef struct 



131 { 

132 FSM.SYS.STATE 

133 int 

134 FddiT.Timer* 

135 double 

136 double 

137 Objid 

138 int 

139 int 

140 int 



sv.ring.id; 
sv.THT; 
sv.T.Req; 
sv.T.Pri [8] ; 
sv.my.objid; 
s v.spawn.token ; 
sv.my.address; 
sv.orig.src.addr ; 
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141 


Packet* 


sv.tk.pkptr ; 


142 


double 


sv.sync.bandwidth; 


143 


double 


sv.sync.pc; 


144 


int 


sv.restricted; 


146 


int 


sv.res.peer; 


146 


int 


sv.tk.registered; 


147 


Ici* 


sv.to_llc_ici.ptr; 


148 

149 


int 

> cp.fddi.mac.state; 


sv.tk.trace.on; 



pr.state.ptr 


( (cp.fddi.mac.state*) SimI_Mod.State.Ptr) 


ring.id 


pr_state_ptr->sv_ring_id 


THT 


pr_state_ptr->sv_THT 


T.Req 


pr.state.ptr->sv.T.Req 


T.Pri 


pr_state_ptr->sv_T_Pri 


my.objid 


pr_state_ptr->s v.my.obj id 


spawn.token 


pr_state_ptr->sv_spawn_token 


my.address 


pr_state_ptr->sv_my_address 


orig.src.addr 


pr_state_ptr->sv_orig_src_addr 


tk.pkptr 


pr_state_ptr->sv_tk_pkptr 


sync.bandwidth 


pr.state_ptr->sv_sync_bandwidth 


sync.pc 


pr_state_ptr->sv_sync_pc 


restricted 


pr.state_ptr->sv.restricted 


res.peer 


pr_state_ptr->sv_res_peer 


tk.registered 


pr_state_ptr->sv_tk_registered 


to.llc_ici.ptr 


pr_state_ptr->sv_to_llc_ici_ptr 


tk.trace.on 


pr_state_ptr->sv_tk_trace_on 



167 /* Process model interrupt handling procedure */ 



168 void 

169 cp.fddi.mac () 

170 { 

171 /* Packets and ICI's */ 

172 Packet* mac.lrame.ptr ; 

173 Packet* pdu.ptr; 

174 Packet* pkptr; 

176 Packet* data.pkptr; 

176 Ici* ici.ptr; 

177 /* Packet Fields and Attributes */ 

178 int req.pri, svc.class , req.tk.class ; 

179 int frame.control, src.addr, dest.addr; 

180 int pk.len, pri.level; 

181 /* Token - Related */ 
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182 int tk.usable, res.station, tk.class; 

183 int current .tk.class ; 

184 double accum.sync; 

185 /* Timer - Related */ 

186 double tx.time, timer.remaining, accum.bandwidth; 

187 double tht.value; 

188 /* Miscellaneous */ 

189 int i; 

190 int spawn.station, phy.arrival; 

191 ch ar error.string [512]; 

192 int num.frames.sent , num.bits.sent ; 

193 /* 26DEC93: loop management variables, used in RCV.TK */ 

194 /* and ENCAP states. -Mix */ 

195 int NUM.PRIOS; 

196 int punt; 

197 int q.check; 



198 FSM.ENTER (cp.f ddi.mac) 

199 FSMJBLOCK.SVITCH 

200 { 

201 /* */ 

202 /** state (INIT) enter executives **/ 

203 FSM_STATE_ENTER_F0RCED (0, stateO.enter.exec , M IHIT M ) 

204 { 

205 /* Obtain the station's address . This is an attribute */ 

206 /* o f this process. Addressing is simplified by */ 

207 /* simply using integers, and only one mode. */ 

208 /* This mode is 16 bit addressing unless the */ 

209 /* packet format 'f ddi_mac.fr 1 is modified. */ 

210 my.objid = op.id.self () ; /* 29DEC93 */ 

211 op.ima_obj_attr.get (my.objid, "station.address" , toy.address) ; 

212 /* Register the station's object id in a globed table. */ 

213 /♦ This table is used by the mechanism which improves */ 

214 /* simulation efficiency by 'jumping over' idle periods */ 

215 /* rather than circulating an unusable token. */ 

216 f ddi.station.register (my.address, my.objid); 



217 /* Obtain the station latency for tokens and frames. ♦/ 

218 /* Default value is set at 100 nanoseconds. */ 

219 Fddi.St.Latency = 100.0e-09; 

220 op_ima_sim_attr_get (0PC_IMA_D0UBLE, M station_latency M , AFddi.St.Latency) ; 
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221 /♦ Obtain the propagation delay separating stations. */ 

222 /* This value is given in seconds with default value 3.3 microseconds. */ 

223 Fddi_Prop_Delay = 3.3e-06; 

224 op_ima_sim_attr_get (OPC_IMA_DOUBLE, "prop.delay" , tFddi.Prop .Delay) ; 

225 /* Derive the Delay for a 'hop* of a freely circulating packet. */ 

226 Fddi.Tk.Hop.Delay = Fddi.Prop.Delay + Fddi.St.Latency ; 



227 /* The T.Pri □ state variable array supports priority */ 

228 /* assignments on a station by station basis by ♦/ 

229 /* establishing a correspondence between integer priority */ 

230 /* levels assigned to frames and the maximum values of the */ 

231 /* token holding timer (THT) which would allow packets to be */ 

232 /* sent. Eight levels are supported here, but this can easily */ 

233 /+ be changed by redimensioning the priority array. */ 

234 /* By default all levels are identical here, allowing */ 

235 /♦ any frame to make use of the token, so that in fact */ 

236 /* priority levels are not used in the default case. */ 

237 /* 01JAN94: (8-i) is a quick attempt to impart different weighting */ 

238 /* scales on each priority level, and is not necessarily realistic .-Nix */ 

239 /* Be aware of integer-double arithmetic conflicts ie, 1/8 = 0. -Nix ♦/ 

240 op_ima_obj_attr_get(my_objid, M T_Req M , AT_Req) ; 

241 for (i = 0; i < 8; i++) 

242 { 

243 T_Pri[i] = ( (double) (i + 1.0)/8.0) * Fddi.T.Opr; 

244 /* printf ("MAC INIT: T.Pri f/.d] is # /,lf; */ 

245 /♦ Fddi.T.Opr is # /.lf\n", i, T.Pri[i], Fddi.T.Opr) ; ♦/ 

246 > 

247 /* Create the token holding timer (THT) used to restrict the */ 

248 /* asynchronous bandwidth consumption of the station */ 

249 THT = fddi_timer_create (); 

250 /* Create the token rotation timer (TRT) used to measure the */ 

251 /* rotations of the token, detect late tokens and initialize */ 

252 /* the THT timer before asynchronous tranmsmissions . */ 

253 TRT = fddi_timer_create (); 

254 /* Set the TRT timer to expire in one TTRT */ 

255 TRT_SET (my_address, op_sim_time () + Fddi_T_0pr) ; 

256 

257 /* Initicilize the Late.Ct variable which keeps track. */ 

258 /* of the n\imber of TRT expirations. */ 

259 Late.Ct = 0; 

260 /♦ initially the ring operates in nonrestricted mode */ 

261 restricted = 0; 
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262 /* Create an Interface Control Information structure */ 

263 /* to use when delivering received frames to the LLC. */ 

264 to.llc.ici.ptr = op.ici.create ( M f ddi.mac.ind") ; 

266 /* The 'tk.registered* variable indicates if the station */ 

266 /* has registered its intent to use the token. */ 

267 tk.registered = 0; 



268 /♦ Determine if the model is to make use of the token */ 

269 /* 'acceleration* mechanism. If not, every passing of the */ 

270 /* token will be explicityly modeled, leading to large */ 

271 /* number of events being scheduled when the ring is idle */ 

272 /♦ (i.e, no stations have data to send). */ 

273 op_ima_sim.attr.get (OPC.IHA.INTEGER, "accelerate.token" , 

274 kFddi.Tk.Accelerate) ; 



276 /* Obtain the synchronous bandwidth assigned */ 

276 /* to this station. It is expressed as a */ 

277 /* percentage of TTRT, and then converted to seconds */ 

278 op_ima_obj_attr_get (my.objid, "sync bandwidth", ftsync.pc) ; 

279 sync.bandwidth = sync.pc * Fddi.T.Opr; 



280 /* Only one station in the ring is selected to */ 

281 /* introduce the first token. Test if this station is it. */ 

282 /* If so, set the 'spawn.token* flag. */ 

283 /* op.ima_sim_attr.get (OPC.IHA.INTEGER, "spawn station", kspawn. station) ; */ 

284 /* spawn.token = (spawn.station == my.address); */ 

285 /* If the station is to spawn the token, create */ 

286 /* the packet which represents the token. */ 

287 /* 14APR94 :the bridges will spawn token in both rings */ 

288 /* -Karayakaylar */ 

289 spawn.token =1; 

290 if (spawn.token) 

291 { 

292 tk.pkptr = op_pk.create.fmt ("fddi.mac.tk") ; 

293 /* assign its frame control field */ 

294 op.pk_nfd.set (tk.pkptr, "fc", FDDI.FC.TOKEN) ; 

295 /* the first token issued is non-restricted */ 

296 op.pk.nfd_ set (tk.pkptr, "class", FDDI.TK.NONRESTRICTED) ; 

297 /* The transition will be made into the ISSU.TK */ 

298 /* state where the tk.usable variable is used. */ 

299 /* In case any data has been generated, prset */ 

300 /* this variable to one. */ 
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301 tk_usable = 1; 

302 > 



303 /* When sending packets the variable accum_bandwidth is */ 

304 /* used as a scheduling base. Init this value to zero. */ 

305 /* This statement is required in case this is the spawning */ 

306 /* station, and the next state entered is ISSUE_TK */ 

307 accum_bandwidth = 0.0; 



308 > 



309 /** state (INIT) exit executives **/ 

310 FSM_STATE_EXIT_FORCED (0, stateO_exit_exec, "INIT”) 

311 { 

312 > 



313 /** state (INIT) transition processing **/ 

314 FSH_INIT_C0ND (spawn.token) 

315 FSM_DFLT_C0ND 

316 FSM_TEST_L0GIC ("INIT") 

317 FSM_TRANSIT_SWITCH 

318 { 

319 FSM_CASE_TRANSIT (0, 2, state2_enter_exec , ;) 

320 FSM_CASE_TRANSIT (1, 1, statel_enter_exec , ;) 

321 > 

322 /* */ 



323 /** state (IDLE) enter executives **/ 

324 FSM_STATE_ENTER_UNFORCED (l, statel_enter_exec , "IDLE") 

325 { 

326 > 



327 /** blocking alter enter executives ol unforced state. **/ 

328 FSM_EXIT (3 , cp_lddi_mac) 



329 /** state (IDLE) exit executives **/ 

330 FSM_STATE_EXIT_UNF0RCED (1, statel_exit_exec , "IDLE") 

331 { 

332 /* Determine il a trace is activated lor the FDDI model */ 

333 tk_trace_on = op_prg_odb_ltrace_active ("fddi_tk"); 
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334 /* Trap packets arriving from physical layer so that their */ 

335 /* FC field can be extracted before evaluating conditions */ 

336 if (op.intrpt.type () == OPC.INTRPT.STRM tt op.intrpt.strm () != FDDI_LLC.STRM.IN) 

337 { 

338 /* Acquire the arriving packet. */ 

339 pkptr = op.pk.get (FDDI.PHY.STRM.IN) ; 

340 /* Determine the type of packet by extracting */ 

341 /* the frame control field. */ 

342 op.pk.nfd.get (pkptr, M fc", Aframe.control) ; 

343 /* Physical layer arrival flag is set. */ 

344 phy.arrival = 1; 

345 > 

346 else{ 

347 /* The interrupt is not due to a physical layer axrival. */ 

348 phy.arrival = 0; 

349 /* If the interrupt is a remote interrupt with specified code, it signifies */ 

350 /* the reinsertion of the token into the ring after an idle period. This only */ 

351 /* occurs if the token acceleration mechanism is active. */ 

352 if (op_intrpt_type () == 0PC_INTRPT_REM0TE kb op.intrpt.code () == FDDIC.TK.INJECT) 

353 { 

354 /* create a new token */ 

355 tk.pkptr = op_pk_create_fmt ( M fddi_mac_tk") ; 

356 /* assign its frame control field */ 

357 op_pk.nfd.set (tk.pkptr, “fc", FDDI.FC.TOKEN) ; 

358 /* the token is non-restricted */ 

359 op.pk_nfd.set (tk.pkptr, "class", FDDI_TK_NONRESTRICTED) ; 

360 /* insert it into the ring */ 

361 op.pk.send (tk.pkptr, FDDI_PHY.STRM.OUT); 

362 > 

363 > 



> 



364 /** state (IDLE) transition processing **/ 

365 FSM.INIT.COND (TK.RECEIVED) 

366 FSM.TEST.COND (RC.FRAME) 

367 FSM.TEST.COND (TRT.EXPIRE) 

368 FSM.TEST.COND (FRAME. ARRIVAL) 

369 FSM.DFLT.COND 

370 FSM.TEST.LOGIC ("IDLE") 
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371 FSM.TRANSIT.SWITCH 

372 { 



373 


FSM.CASE.TRANSIT 


(0, 


3, 


state3.enter.exec , 


) 


374 


FSM.CASE.TRANSIT 


(1. 


4. 


state4.enter.exec , 


) 


375 


FSM.CASE.TRANSIT 


(2. 


7, 


state7.enter.exec , 


) 


376 


FSM.CASE.TRANSIT 


(3, 


8. 


state8.enter.exec , 


) 


377 


FSM.CASE.TRANSIT 


(4, 


1. 


statel.enter.exec. 


) 



378 > 

379 /* ♦/ 



380 /** state (ISSUE.TK) enter executives **/ 

381 FSM.STATE.ENTER.FORCED (2, state2.enter.exec, "ISSUE.TK") 

382 { 

383 /* If the token is sent without having been used, and the station */ 

384 /* has no data to send, then indicate this fact to the */ 

385 /* token acceleration mechanism which may have an */ 

386 /* oppurtunity to block the token. */ 

387 if ( Itk.usable op.q.stat (OPC.QSTAT.PKSIZE) == 0.0) 

388 { 

389 /* Mote that if the token cannot be blocked, */ 

390 /* this procedure will forward the token physically. */ 

391 f ddi.tk_indicate_no.data (tk.pkptr, my_address, accum_bandwidth) ; 

392 > 

393 else{ 

394 if (tk_trace_on == OPC.TRUE) 

395 { 

396 sprintf (strO, "Issuing token. accum_bw (*/..9f), prop.del (y,.9f) M , 

397 accum_bandwidth, Fddi_Prop_Delay) ; 

398 op.prg.odb .print .major (strO, OPC.NIL); 

399 > 

400 /♦ Send out the token packet using the accumulated */ 

401 /* consumed bandwidth as a scheduling base. */ 

402 /* In the case of the initial spawning of the token +/ 

403 /* this will be zero; otherwise this variable will */ 

404 /* reflect the bandwidth consumed since the last capture +/ 

405 /* of the usable token. Propagation delay is also accounted for. */ 

406 op_pk_send_delayed (tk.pkptr, FDDI.PHY_STRM.0UT, 

407 accum.bandwidth + Fddi.Prop.Delay) ; 

408 > 

409 > 



410 /** state (ISSUE.TK) exit executives **/ 

411 FSM.STATE.EXIT.FORCED (2, state2.exit.exec, "ISSUE.TK") 

412 { 

413 } 
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414 /** state (ISSUE_TK) transition processing **/ 

415 FSM.TRANSIT.FORCE (1, statel.enter.exec , ;) 

416 /* 



*/ 



417 /** state (RCV_TK) enter executives **/ 

418 FSM.STATE.ENTER.FORCED (3, state3.enter.exec, "RCV.TK") 

419 { 

420 /* The arriving packet, when received in the IDLE state */ 

421 /* is placed in the variable 'pkptr*. Since it is now */ 

422 /* known that it is a token, it can be placed in 'tk.pkptr. */ 

423 tk.pkptr = pkptr; 

424 

425 /* Load the tokens class into the temporary variable 'tk.class. 1 */ 

426 op.pk.nfd.get (pkptr, "class", ktk. class); 

427 /* If the token is restricted, determine lor which station. */ 

428 if (tk.class == FDDI.TK.RESTRICTED) 

429 { 

430 /* Place the station address in the variable 'res.station* */ 

431 /* which may factor in to the determination of token usability. */ 

432 op.pk_nfd.get (tk.pkptr, "res.station", kres. station) ; 

433 > 



434 /* Determine if the token is usable: */ 

435 /* assume by default that it is not */ 

436 /* Subsequent conditions may override this. */ 

437 tk.usable = 0; 



438 /* The token can only be usable if there are frames enqueued */ 



439 /* 27DEC93: the entire bank of subqueues must be checked, */ 

440 /* starting at the highest priority (corresponding to */ 

441 /* synchronous traffic), and stopping when a packet is */ 

442 /* found. Then the loop is broken. -Nix */ 



443 NUM.PRIOS = 9; 

444 for (i = NUM.PRIOS - 1; i > -1; i— ) 

445 { 

446 if (op.subq.stat (i, OPC.QSTAT.PKSIZE) >0.0) 

447 { 

448 /* examine the attributes of the packet at the */ 

449 /* head of the queue. */ 

450 fddi.load.frame.attrs (ftdest.addr, ksvc.class, kpri.level) ; 

451 /* It synchronous data is queued, the token is */ 

452 /* necessarily usable, regardless of timing conditions. */ 

453 if (svc. class == FDDI.SVC.SYNC) 

454 { 
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455 tk.usable = 1; 

456 break; 

457 > 

458 else{ 

459 /* Otherwise, if asynchronous data is queued, it must */ 

460 /* meet several criteria tor the token to be usable. */ 

461 /* The token is only usable only it it is early. */ 

462 it (Late.Ct == 0) 

463 { 

464 /* The token's class must be nonrestricted, unless */ 

465 /* this station is involved in the restricted transfer. */ 

466 if (tk.class == FDD I. TK_ NON RESTRICTED | I 

467 res.station == my.address I I 

468 restricted) 

469 { 

470 /* Test the frame's priority assignment against the current TRT */ 

471 /* This test uses the priority indirection table T.Pri */ 

472 /* so that only packets whose T.Pri [pri.level] exceeds */ 

473 /* the TRT can be transmitted. In other words, by */ 

474 /* assigning lower values to T.Pri for a given priority */ 

475 /* level, packets of that level will be further restricted */ 

476 /* from using the ring bandwidth. */ 

477 if (T_Pri [pri_level] >= fddi_timer_value (TRT)) 

478 { 

479 tk.usable = 1; 

480 break; 

481 } 

482 > 

483 > 

484 > 

485 > /♦ closes the "if (op_subq_stat (OPC_QSTAT_PKSIZE) > 0.0" statment */ 

486 > /* closes the "for" loop */ 



487 /* If the token is usable, timers must be readjusted. */ 

488 if (tk_usable) 

489 { 

490 /* The timer adjustment depends on whether the token is early or late. */ 

491 if (Late.Ct == 0) 

492 { 

493 /* Transfer the contents of TRT into THT. */ 

494 fddi.timer.copy (TRT, THT); 

495 /* Disable the THT timer. */ 

496 fddi.timer.disable (THT); 

497 /* Reset TRT to time the next rotation. */ 

498 op_ev_cancel (TRT .handle) ; 

499 TRT.SET (my.address, op.sim.time () + Fddi_T_0pr) ; 
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500 > 

501 else{ 

502 /* If the token is late, set the THT to its expired */ 

503 /* value, and disable it. This will prevent any */ 

504 /* asynchronous transmissions from occuring. */ 

505 fddi.timer.set.value (THT, Fddi.T.Opr); 

506 f ddi.timer.disable (THT); 

507 /* clear the Late token counter (note that TRT is not modified, */ 

508 /* so that less than a full TTRT remains before TRT expires again. */ 

509 Late.Ct = 0; 

510 > 

511 > 



512 /* If the token is not usable, different adjustments axe made. */ 

513 else{ 

514 /* Again, the adjustments depend on the lateness of the token */ 

515 if (Late.Ct == 0) 

516 { 

517 /* If the token is not late, the TRT is reset to time the next rotation. */ 

518 op.ev.cancel (TRT.handle) ; 

519 TRT.SET (my_address, op.sim.time () + Fddi.T.Opr) ; 

520 > 

521 else{ 

522 /* clear the Late token counter (note that TRT is not modified, */ 

523 /* so that less than a full TTRT remains before TRT expires again. */ 

524 Late_Ct = 0; 

525 > 

526 /* also, account for the time needed by the token */ 

527 /* to traverse the station, since it is about to be sent. */ 

528 /* Note: station latency is not inclusive of token */ 

529 /* transmission time, but only of the time required to */ 

530 /* process and repeat the token's symbols. */ 

531 accum_bandwidth = Fddi.St .Latency; 

532 > 

533 > 



534 /** state (RCV_TK) exit executives **/ 

535 FSM_STATE_EXIT_F0RCED (3, state3.exit.exec, "RCV.TK") 

536 { 

537 > 



538 /** state (RCV.TK) transition processing **/ 

539 FSM.INIT.C0ND (tk.usable) 

540 FSM.DFLT.C0ND 
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541 FSM_TEST_LOGIC (•'RCV.TK*') , 

542 FSM_TRANSIT_SWITCH 

543 { 

544 FSM_CASE_TRANSIT (0, 9, state9_enter_exec , ;) 

545 FSM_CASE_TRANSIT (1, 2, state2_enter_exec , ;) 

546 > 

547 /* */ 



548 /** state (FR_RCV) enter executives **/ 

549 FSM_STATE_EHTER_FORCED (4, state4_enter_exec, "FR.RCV") 

550 { 

551 /* A frame has been received from the physical layer. lote that */ 

552 /* at this time, only the leading edge of the frame has arrived. */ 

563 /* Extract the frame’s source address (this sill be used to */ 

554 /* determine whether or not to strip the frame from the ring) . */ 

555 op_pk_nfd_get (pkptr, M src_addr", Asrc_addr) ; 

656 > 



557 /** state (FR_RCV) exit executives **/ 

558 FSM_STATE_EXIT_FORCED (4, state4_exit_exec, *'FR_RCV M ) 

559 { 

560 > 



561 /** state (FR_RCV) transition processing **/ 

562 FSM_INIT_COND (STRIP) 

563 FSM_DFLT_C0ND 

564 FSM_TEST_L0G IC ( M FR_RCV“) 

565 FSM_TRANSIT_SWITCH 

566 { 

567 FSM_CASE_TRANSIT (0, 5, state5_enter_exec, ;) 

568 FSM_CASE_TRANSIT (1, 6, state6_enter_exec , ;) 

569 > 

570 /* */ 



571 /** state (FR_STRIP) enter executives **/ 

572 FSM_STATE_ENTER_F0RCED (5, state5_enter_exec , ,, FR_STRIP“) 

573 { 

574 /* Destroy the frame which has now circulated the entire ring. */ 
675 op_pk_destroy (pkptr) ; 

576 > 
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577 /** state (FR_STRIP) exit executives **/ 

578 FSM_STATE_EXIT_ FORCED (5, state5_exit_exec, M FR_STRIP M ) 

579 { 

580 > 



581 /** state (FR_STRIP) transition processing **/ 

582 FSM_TRANSIT_FORCE (1, statel_enter_exec , ;) 

583 /* */ 



584 /** state (FR_REPEAT) enter executives **/ 

585 FSM_STATE_ENTER_FORCED (6, state6_enter_exec , "FR.REPEAT") 

586 { 

587 /* Extract the destination address of the frame. */ 

588 op_pk_nfd_get (pkptr, "dest_addr", ftdest_addr); 

589 /* If the frame is for this station, make a copy */ 

590 /* of the frame's data field and forward it to */ 

591 /* the higher layer. */ 

592 /* 14APR94 : In order to send the frames which axe */ 

593 /* addressed to the remote Ian, check the address database */ 

594 /* of remote Ism. Frames addressed to the remote lan shouldn't */ 

595 /* be repeated in the local ring — This is a simple forwarding */ 

596 /* decision algorithm, one of the bridge's function */ 

597 /+ - Karayakaylar */ 

598 if ((dest.addr == my_address) I I (dest_addr > my_address)) 

599 { 

600 /* record total size of the frame (including data) */ 

601 pk_len = op_pk_total_size_get (pkptr); 

602 /* decapsulate the data contents of the frame */ 

603 /* 29JAN94: a new field, "pri", has been added to */ 

604 /* the fddi_llc_fr packet format in the Parameters */ 

605 /* Editor, so that output statistics can be */ 

606 /* generated by class and priority. -Nix */ 

607 op_pk_nfd_get (pkptr, "info", Adata_pkptr) ; 

608 op_pk_nfd_get (pkptr, "pri M , fcpri_level) ; 

609 /* The source and destination address are placed in the */ 

610 /* LLC's ICI before delivering the frame's contents. ♦/ 

611 op_ici_attr_set (to_llc_ici_ptr , "src.addr" , src^addr); 

612 op_ici_attr_set (to.llc.ici.ptr , "dest.addr" , dest_addr) ; 

613 op_ici_install (to.llc.ici.ptr) ; 

614 /* Because, as noted in the FR_RCV state, only the*/ 

615 /* frame's leading edge has arrived at this time, the */ 

616 /* complete frame can only be delivered to the higher */ 

617 /* layer after the frame's transmission delay has elapsed. */ 

618 /* (since decapsulation of the frame data contents has occured, */ 
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619 /* the original MAC frame length is used to calculate delay) */ 

620 tx.time = (double) pk.len / FDDI.TX.RATE; 

621 op.pk.send.delayed (data.pkptr, FDDI_LLC_STRM_OUT , tx.time); 

622 /* Mote that the standard specifies that the original */ 

623 /* frame should be passed along until the originating station */ 

624 /* receives it, at which point it is stripped from the ring, */ 

625 /* However, in the simulation model, there is no interest */ 

626 /♦ in letting the frame continue past its destination unless */ 

627 /* group addresses are used, so that the same frame could be */ 

628 /♦ destined for several stations. Here the frame is stripped */ 

629 /* for efficiency as it reaches the destination; if the model */ 

630 /* is modified to include group addresses, this should be changed */ 

631 /♦ so that the frame is copied and the original repeated. */ 

632 /* Logic is already present for stripping the frame at the origin. */ 

633 op.pk.destroy (pkptr) ; 

634 > 

635 /* 14APR94 : the frames belong to this ring should be repeated. */ 

636 /♦ Thus, local traffic is constrained. — This is filtering decision */ 

637 /* One of the bridge's function - Karayakaylar */ 

638 else{ 

639 /* Repeat the original frame on the ring and account for */ 

640 /* the latency through the station and the propagation delay */ 

641 /* for a single hop. */ 

642 /* (Only the originating station can strip the frame). */ 

643 op_pk_s end_delay ed (pkptr, FDDI_PHY_STRM_OUT , 

644 Fddi_St_Latency + Fddi.Prop .Delay) ; 

645 > 

646 > 



647 /** state (FR_REPEAT) exit executives **/ 

648 FSM_STATE_EXIT_FORCED (6, state6_exit_exec, M FR_REPEAT M ) 

649 { 

650 > 



651 /** state (FR.REPEAT) transition processing **/ 

652 FSM.TRANSIT.FORCE (1, statel.enter.exec , ;) 

653 /* */ 



654 /** state (TRT_EXP) enter executives **/ 

655 FSM.STATE.ENTER.FORCED (7, state7.enter.exec, M TRT.EXP M ) 

656 { 

657 /* The timer is reset and allowed to continue running. */ 

658 TRT.SET (my.address, op_sim_time () + Fddi.T.Opr) ; 

659 /* The late token counter is incremented. This will */ 
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660 /* prevent this station from making any asynchronous */ 

661 /* transmissions when it next captures the token. */ 

662 Late_Ct++; 

663 > 



664 /** state (TRT.EXP) exit executives **/ 

665 FSM.STATE.EXIT.FORCED (7, state7.exit.exec, M TRT.EXP M ) 

666 { 

667 > 



668 /** state (TRT.EXP) transition processing **/ 

669 FSM.TRANSIT.FORCE (1, statel.enter.exec , ;) 

670 /* */ 



671 /♦* state (ENCAP) enter executives **/ 

672 FSM.STATE.ENTER.FORCED (8, state8.enter.exec, "ENCAP") 

673 { 

674 /* A frame has arrived from a higher layer; place it in 'pdu.ptr*. */ 

675 pdu.ptr = op.pk.get (op.intrpt.strm ()); 

676 /* Also get the interface control information */ 

677 /* associated with the new frame. */ 

678 ici.ptr = op.intrpt.ici (); 

679 if (ici.ptr == OPC.NIL) 

680 { 

681 sprintf (error.string, '‘Simulation aborted; error in object ( # /.d)", 

682 op.id.self ()); 

683 op.sim.end (error.string, "fddi.mac: required ICI not received", " ", " ") ; 

684 > 

685 /* Extract the requested service class */ 

686 /* (e.g, synchronous or asynchronous). */ 

687 if (op.ici.attr.exists (ici.ptr, "svc.class") ) 

688 op.ici.attr.get (ici.ptr, "svc.class", Asvc.class); 

689 else svc.class = FDDI.SVC.ASYNC; 

690 /* Extract the destination address. */ 

691 op.ici.attr.get (ici.ptr, "dest.addr", Adest.addr); 

692 /* Extract the original source address from ICI : 16APR94 */ 

693 op.ici.attr.get (ici.ptr, "src.addr", Aorig.src.addr) ; 

694 /* If the frame is asynchronous, the priority and */ 

695 /* requested token class parameter may be specified. */ 

696 if (svc.class == FDDI.SVC.ASYNC) 
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697 { 

698 /* Extract the requested priority level. */ 

699 if (op.ici.attr.exists (ici.ptr, "pri")) 

700 op.ici_attr.get (ici.ptr, "pri", fcreq.pri) ; 

701 else req.pri = 0; 

702 /* Extract the token class (restrictred or non-restricted) . ♦/ 

703 if (op.ici.attr.exists (ici.ptr, M tk_class M )) 

704 op.ici.attr.get (ici.ptr, "tk.class", Areq.tk.class) ; 

705 else req.tk.class = FDDI.TK.NONRESTRICTED ; 

706 > 

707 /* Check lor the default ICI values; if they are not present */ 

708 /* compose the frame :21APR94 */ 

709 if( dest.addr != orig_src_addr){ 

710 /* Compose a mac frame from all these elements. */ 

711 mac.frame.ptr = op_pk_create_fmt ("fddi.mac.f r") ; 

712 op.pk_nfd.set (mac.frame.ptr, "svc.class", svc.class) ; 

713 op.pk_nfd.set (mac.frame.ptr, "dest.addr", dest.addr); 

714 /*op.pk.nfd_set (mac.frame.ptr, "src.addr", my.address) ;*/ 

715 /* here original source address should be kept in mac frame :16APR94*/ 

716 op_pk.nfd.set (mac.frame.ptr, "src.addr", orig.src.addr) ; 

717 op.pk.nfd.set (mac.frame.ptr, "info", pdu.ptr) ; 

718 printf ("\ndest_addr = # /,5d\n", dest.addr) ; 

719 printf ("orig.src.addr= %5d\n", orig.src.addr ) ; 

720 if (svc.class == FDDI.SVC.ASYNC) 

721 { 

722 op.pk.nfd.set (mac.frame.ptr, "tk.class", req.tk.class); 

723 op.pk.nfd.set (mac.frame.ptr, "pri", req.pri); 

724 > 

725 /* 04JAN94: if the frame is synchronous, assign it a separate */ 

726 /* priority so that it may be assigned its own subqueue, and */ 

728 /* thereby be assigned its own probe for monitoring. -Nix */ 

729 if (svc.class == FDDI.SVC.SYNC) 

730 { 

731 op.pk.nfd.set (mac.frame.ptr, "pri", 8); 

732 > 

733 /* Assign the frame control field, which in the model */ 

734 /* is used to distinguish between tokens and ordinary */ 

735 /* frames on the ring. */ 

736 op.pk.nfd.set (mac.frame.ptr, "fc" , FDDI.FC.FRAHE) ; 

737 /* Enqueue the frame at the tail of the queue. */ 

738 /* 27DEC93: at the tail of the prioritized queue. */ 

739 /* 04JAN94: must distinguish between synch k asynch. */ 

740 if (svc.class == FDDI.SVC.ASYNC) 

741 { 
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742 op_subq_pk_insert (req_pri, mac_frame_ptr , OPC_QPOS_TAIL) ; 

743 > 

744 i f (svc.class == FDDI.SVC.SYNC) 

745 { 

746 op_subq_pk_insert (8, mac_frame_ptr , 0PC_QP0S_TAIL ) ; 

747 > 



748 /* if this station has not yet registered its intent to */ 

749 /* use the token, it may do so now since it has data to send */ 

750 it ( !tk_registered) 

751 { 

752 fddi_tk_register (); 

753 tk_registered = 1; 

754 > 

755 > /* end o t if(dest_addr != orig_src_addr) statement */ 



> 



756 /** state (ENCAP) exit executives **/ 

757 FSM_STATE_EXIT_FORCED (8, state8_exit_exec, "ENCAP") 

758 { 

759 > 



760 /** state (ENCAP) transition processing **/ 

761 FSM_TRANSIT_FORCE (1, statel.enter.exec , ;) 

762 /* */ 



763 /** state (TX_DATA) enter executives **/ 

764 FSM.STATE.ENTER.FORCED (9, state9_enter_exec , "TX.DATA") 

765 { 

766 /* In this state, frames are transmitted until the */ 

767 /* token is no longer usable. Frames are taken from */ 

768 /* the single input queue in FIFO order. */ 

769 /* Reset the accumulator used to keep track of bandwidth */ 

770 /* consumed by the transmissions. Because all the transmissions */ 

771 /* are scheduled to happen at the appropriate times, but */ 

772 /* these schedulings occur instantly, this accumulator serves */ 

773 /* an the scheduling base for the transmissions. */ 

774 /* In other words, each successively transmitted frame */ 

775 /* is delayed relative to the previous one by the time which */ 

776 /* the latter took to send. At the end of transmission (e.g, */ 

778 /* when the token is no longer usable), this accumulator */ 
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779 /* serves to delay the forwarding of the token. */ 

780 accum.bandwidth = 0.0; 



781 /* Note that, because all tranmsmissions are */ 

782 /* scheduled, the value of the THT timer will not progress */ 

783 /* between shcedulings (these all happen in zero time), and so ♦/ 

784 /* the variable 'tht.value' is used to emulate the timer's progress. */ 

785 tht.value = f ddi.timer.value (THT) ; 

786 /* **************************************************** */ 

787 /* 30MAR94: print T_Pri[i]. THT data */ 

788 /* for (i = 0; i < 8; i++) */ 

789 /* { */ 

790 /♦ printf ( "TX.D ATA : T_Pri[‘/,d] = */4, THT = %d 9 Fddi.T.Opr = %d\n M , i, T.Pri[i], tht_ value */ 

791 /* > ♦/ 

792 /* Reset an accumulator which reflects the consumed ♦/ 

793 /* synchronous bandwidth. */ 

794 accum_sync = 0.0; 

795 /* Reset counters for transmitted frames and bits. */ 

796 num_f rames_sent = 0; 

797 num.bits.sent = 0; 

798 /* The tr 2 msmission sequence must end if the input queue */ 

799 /* becomes exhausted. Other termination conditions are */ 

800 /* embedded in the loop. ♦/ 

801 /* 27DEC93: modify the loop to accomodate subqueue structure. */ 

802 /* A "for" loop is imposed over the original "while" loop. */ 

803 /♦ First, reset the break marker, "punt". -Nix */ 

804 punt = 0; 

805 for (i = NUM.PRIOS - 1; i > -1; i— ) 

806 { 

807 while (op.subq.stat (i ,0PC.QSTAT.PKSIZE) >0.0) 

808 { 

809 /* Remove the next frame for transmission. */ 

810 pkptr = op_subq_pk_remove (i, 0PC.QP0S_HEAD) ; 

811 

812 /* Obtain the frame's service class. */ 

813 op_pk.nfd.get (pkptr, "svc.class" , ftsvc. class); 

814 

815 /* Synchronous and asynchronous frames are treated differently. ♦/ 

816 if (svc.class == FDDI.SVC.SYNC) 

817 { 

818 /* Obtain the frame's length, and compute */ 

819 /* the time required to transmit it. */ 

820 pk.len = op.pk_total_size.get (pkptr); 

821 tx.time = (double) pk.len / FDDI.TX.RATE; 

822 /* Check if synchronous bandwidth allocation for this */ 
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823 /* station would be exceeded if the transmission were to occur. */ 

824 if (accum.sync + tx.time > sync.bandwidth) 

825 { 

826 /* The frame could not be sent without exceeding */ 

827 /* the allocated synchronous bandwidth, */ 

828 /* so it is replaced on the queue. */ 

829 /* 27DEC93: in this case, i is the highest priority, */ 

830 /* which is reserved for synchronous traffic. -Nix */ 

831 op_subq_pk_insert (i, pkptr, OPC.QPOSJJEAD) ; 

832 /* Exit the transmission loop since the frame */ 

833 /* transmission request cannot be honored. */ 

834 punt = 1; 

835 break; 

836 > 

837 else{ 

838 /* Send the frame into the ring after other frames have completed. */ 

839 /* Also, account for its proagation delay; because the token propagation */ 

840 /* delay and the frame propagation delay must be consistent, said the */ 

841 /* token propagation delay is specified as a ring parameter (i.e, stations */ 

842 /* are assumed to be equally spaced), the ring is intended to run with */ 

843 /* the "delay" attributes of point-to-point links set at zero. */ 

844 op_pk_send_delayed (pkptr, FDDI_PHY_STRM_OUT, ac cum .bandwidth + Fddi.Prop.Delay) ; 

845 /* increase the consumed bsaidwidth to reflect this */ 

846 /* transmission. Also increase synchronous consumption. */ 

847 accum.bsoidwidth += tx.time; 

848 accum.sync += tx.time; 

849 /* Increase counters for transmitted bits and frames. */ 

850 num_frames_sent++; 

851 num.bits.sent += pk.len; 

852 > 

853 > 

854 else{ 

855 /* The request enqueued at the head of the queue is */ 

856 /* asynchronous. It may only be honored if the THT timer */ 

857 /* has not expired. */ 

858 if (tht. value >= Fddi.T.Opr) 

859 { 

860 /* replace the packet on the queue and exit the transmission loop. */ 

861 op_subq_pk_ insert (i, pkptr, OPC.QPOS.HEAD) ; 

862 punt = 1; 

863 break; 

864 > 

865 else{ 

866 /* Obtain the priority assignment of the frame. */ 

867 op_pk_nfd_get (pkptr, "pri", Apri.level) ; 

868 /* If the packet's assigned priority level */ 

869 /* is too low for it to be serviced, then exit the loop */ 
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870 /♦ after replacing the packet in the queue. */ 

871 if (T.Pri [pri. level] < tht. value) 

872 { 

873 op. subq.pk. insert (i, pkptr, OPC.QPOS.HEAD) ; 

874 punt = 1; 

875 break; 

876 > 

877 /* Obtain the frame's length, and compute the time */ 

878 /* which would be required to transmit it. */ 

879 pk.len = op.pk_total_size.get (pkptr); 

880 tx.time = (double) pk.len / FDDI.TX.RATE; 

881 /* Determine the requested token class to be */ 

882 /* released after this frame is transmitted. */ 

883 op.pk.nfd.get (pkptr, M tk_class M , Atk.class); 

884 /* If the station is in restricted mode, then it may */ 

885 /* exit this mode if the class is now nonrestricted */ 

886 /* or if the restricted peer is not the addressee. */ 

887 if (restricted) 

888 { 

889 /* Determine the destination address for the new packet. */ 

890 op.pk.nfd.get (pkptr, "dest.addr", Adest.addr) ; 

891 if (tk.class == FDDI.TK.NONRESTRICTED I I 

892 res.peer != dest.addr) 

893 { 

894 /* Exit restricted mode */ 

895 restricted = 0; 

896 

897 /* Modify the token to reflect the mode change. */ 

898 op.pk_nfd.set (tk.pkptr, "class", FDDI.TK.NONRESTRICTED); 

899 > 

900 > 

901 else{ 

902 /* Determine the class of the current captured token. */ 

903 op.pk.nfd.get (tk.pkptr, "class” , Acurrent.tk.class) ; 

904 /* When not in restricted mode, this mode may be entered */ 

905 /* if the passed packet has the appropriate token class requested, */ 

906 /* and the token is not already restricted. ♦/ 

907 if (tk.class == FDDI.TK.RESTRICTED Aft current.tk.class != FDD I.TK. RESTRICTED) 

908 { 

909 /* Enter restricted mode. */ 

910 restricted = 1; 

911 /* Store the address of the resticted peer station. */ 

912 op.pk.nfd.get (pkptr, "dest.addr”, Ares.peer) ; 
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913 /* Modify the token to reflect the mode change. */ 

914 op.pk_nfd.set (tk.pkptr, "class", FDDI.TK.RESTRICTED) ; 

915 op.pk.nfd.set (tk.pkptr, "res.station" , res.peer); 

916 > 

917 > 

918 /* Send the frame once previous transmissions have completed. */ 

919 /* Account for propagation delay as well. */ 

920 op.pk.send.delayed (pkptr, FDDI.PHY.STRM.OUT, accum.bandwidth + Fddi.Prop.Delay) ; 



921 /* Increment THT emulation variable, and consumed bandwidth accumulator. */ 

922 tht .value += tx.time; 

923 accum.bandwidth += tx.time; 

924 /* Increase counters for transmitted bits and frames. */ 

925 num_frames_sent++; 

926 num.bits.sent += pk.len; 

927 > 

928 > 

929 > /* closes the 'while 1 loop */ 

930 if (punt == 1) /* If the 'while' loop was broken, */ 

931 { 

932 punt = 0; /* then reset the 'break' maxker, */ 

933 break; /* said break out of the 'for' loop too. */ 

934 > 

935 } /* closes the 'for' loop. */ 

936 /* Since the token is about to be sent, its transmission time */ 

937 /* must be reflected in the accumulated bandwidth. This is not */ 

938 /* done in the ISSUE.TK state because when the token is merely */ 

939 /* repeated, full transmission delay is not required, only */ 

940 /* a small delay for repeating. */ 

941 accum.bandwidth += FDDIC.TOKEN.TX.TIME ; 

942 /* If the station has no more data to send (synchronous or */ 

943 /* asynchronous), it should indicate this to the token acceleration */ 

944 /* mechanism by deregistering its interest in the token. */ 

945 /* 27DEC94: the original code must be modified to include a check */ 

946 /* of subqueues. -Nix */ 

947 q.check = 1; 

948 for (i = NUM.PRI0S - 1; i < -1; i— ) 

949 { 

950 if (op.subq.stat (i, OPC.QSTAT.PKSIZE) == 0.0) 

951 { 

952 q.check = 0; 

953 > 

954 else { 

955 q.check = 1; 

956 break; 
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957 > 

958 > 

959 it (tk.registered Aft q_check == 0) 

960 { 

961 tk_registered = 0; 

962 fddi_tk_deregister (); 

963 > 



964 } 



965 /*♦ state (TX_DATA) exit executives **/ 

966 FSM_STATE_EXIT_FORCED (9, state9_exit_exec, "TX_DATA") 

967 { 

968 > 



969 /** state (TX_DATA) transition processing **/ 

970 FSM_TRANSIT_FORCE (2, state2_enter_exec , ;) 

971 /* */ 



972 /** state (CLAIM) enter executives **/ 

973 FSM_STATE_ENTER_UNFORCED (10, statelO.enter.exec , i# CLAIM M ) 

974 { 

975 /* Obtain this station's object id which is used */ 

976 /* to access the station's attribute assignments. */ 

977 my_objid = op_id_self () ; 

978 /* Using the object id, obtain the ring id. */ 

979 /* The ring id is used by macros defined in the */ 

980 /* header block to obtain "ring-global" values, */ 

981 /* values shared by all stations on a ring. */ 

982 op_ima_obj_attr_get (my_objid, "ring_id", ftring_id) ; 

983 /* Initialize global variable values. */ 

984 Fddi_Tk_Blocked = 0; 

985 Fddi_Num_Stations = 0; 

986 Fddi_Hum_Registered = 0; 

987 /* Using the object id, obtain the value of 'T_Req' , */ 

988 /* the value of TTRT requested by this station. */ 

989 op_ima_obj _attr_get (my.objid, "T_Req", AT_Req) ; 

990 /* 30MAR: workaround; Fddi_T_0pr is never initialized in the */ 

991 /* original code. -Nix */ 

992 Fddi_T_0pr = 500; 
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993 /* The lowest value of T_Req becomes T_0pr for the ring as a whole. */ 

994 if (T_Req < Fddi_T_0pr I I Fddi_Claim_Start) 

995 { 

996 /* The T_Req for this station is lower than any other to date */ 

997 /* so it is installed in the T_0pr variable. */ 

998 Fddi_T_0pr = T.Req; 

999 /* The flag indicating that the claim process is just */ 

1000 /* beginning may now be cleared. */ 

1001 Fddi_Claim_Start = 0; 

1002 > 

1003 /* Request a self interrupt from the Smulation Kernel at the current 

1004 /* time so that after all stations have executed their claim states, */ 

1005 /* they can proceed with initializations. This is necessasary */ 

1006 /* because some initializations are based in the value of T_0pr */ 

1007 /* and it must therefore be known that all stations have settled */ 

1008 /* on a final value. */ 

1009 op_intrpt_schedule_self (op_sim_time (), 0); 



1010 > 



1011 /** blocking after enter executives of unforced state. **/ 

1012 FSM.EXIT (21, cp_fddi_mac) 



1013 /** state (CLAIM) exit executives **/ 

1014 FSM_STATE_EXIT_UNF0RCED (10, statelO.exit.exec , "CLAIM") 

1015 { 

1016 > 



1017 /** state (CLAIM) transition processing **/ 

1018 FSM.TRANSIT.FORCE (0, stateO.enter.exec , ;) 

1019 /* */ 



1020 > 



1021 FSM.EXIT (10,cp_fddi_mac) 

1022 > 
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1023 void 

1024 cp.f ddi.mac.s var (prs.ptr # var.name , var.p.ptr) 

1025 cp.f ddi.mac.state ^prs.ptr; 

1026 char * var .name, ♦♦var.p.ptr; 

1027 { 

1028 FII (cp.f ddi.mac.s var (prs.ptr)) 

1029 ♦var.p.ptr = VOS.NIL; 

1030 if (Vos.String.Equal ("ring.id" # var .name)) 

1031 ♦var.p.ptr = (char ♦ ) (feprs.ptr->sv.ring.id) ; 

1032 if (Vos.String.Equal ("THT" , var .name)) 

1033 ♦var.p.ptr = (char ♦ ) (ftprs.ptr->sv.THT) ; 

1034 if (Vos.String.Equal ("T.Req" , var.name)) 

1035 ♦var.p.ptr = (char ♦ ) (fcprs_ptr->sv_T_Req) ; 

1036 if (Vos.String.Equal ("T.Pri" , var.name)) 

1037 ♦var.p.ptr = (char ♦ ) (prs_ptr->sv.T.Pri) ; 

1038 if (Vos.String.Equal ("my.objid" , var.name)) 

1039 ♦var.p.ptr = (char ♦ ) (&prs_ptr->sv_my.objid) ; 

1040 if (Vos.String.Equal ("spawn.token" , var.name)) 

1041 * var_p.pt r = (char ♦ ) (&prs_ptr->sv.spawn_token) ; 

1042 if (Vos.String.Equal ("my.address" , var.name)) 

1043 ♦var.p.ptr = (char ♦ ) (&prs_ptr->sv.my. address) ; 

1044 if (Vos.String.Equal ("orig.src.addr" , var.name)) 

1045 ♦var.p.ptr = (char ♦ ) (&prs.ptr->sv_orig_src_addr) ; 

1046 if (Vos.String.Equal ("tk.pkptr" , var.name)) 

1047 ♦var.p.ptr = (char ♦ ) (&prs_ptr->sv_tk_pkptr) ; 

1048 if (Vos.String.Equal ("sync.bandwidth" , var.name)) 

1049 ♦var.p.ptr = (char ♦ ) (&prs_ptr->sv_sync_bandwidth) ; 

1050 if (Vos.String_Equal ( M sync.pc M , var.name)) 

1051 ♦var.p.ptr = (char ♦ ) (&prs_ptr->sv_sync.pc) ; 

1052 if (Vos.String.Equal ("restricted" , var.name)) 

1053 ♦var.p.ptr = (char ♦) (feprs_ptr->sv_restricted) ; 

1054 if (Vos.String.Equal ("res.peer" , var.name)) 

1055 ♦var.p.ptr = (char ♦) (&prs.ptr->sv.res.peer) ; 

1056 if (Vos.String.Equal ("tk.registered" , var.name)) 

1057 ♦var.p.ptr = (char ♦) (&prs.ptr->sv.tk.registered) ; 

1058 if (Vos.String.Equal ("to.llc.ici.ptr" , var.name)) 

1059 ♦ var.p.ptr = (char ♦) (&prs_ptr->sv_to_llc.ici.ptr) ; 

1060 if (Vos.String.Equal ("tk.trace.on" , var.name)) 

1061 ♦var.p.ptr = (char ♦) (fcprs_ptr->sv_tk_trace_on) ; 

1062 FOOT; 

1063 > 



1064 void 

1065 cp.fddi_mac.diag () 

1066 { 
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1067 /* Packets and ICI's */ 

1068 Packet* mac_!rame_ptr ; 

1069 Packet* pdu_ptr; 

1070 Packet* pkptr; 

1071 Packet* data.pkptr; 

1072 Ici* ici.ptr; 

1073 /* Packet Fields and Attributes */ 

1074 int req.pri, svc.class, req.tk.class ; 

1075 int !rame_control, src.addr, dest.addr; 

1076 int pk.len, pri.level; 

1077 /* Token - Related */ 

1078 int tk.usable, res.station, tk_ class; 

1079 int current .tk.class; 

1080 double accum.sync; 

1081 /* Timer - Related */ 

1082 double tx.time, timer.remaining, accum.bandwidth; 

1083 double tht .value; 

1084 /* Miscellaneous */ 

1085 int i; 

1086 int spawn. station, phy.arrival; 

1087 char error.string [512] ; 

1088 int num_!rames_sent , num.b its. sent ; 

1089 /* 26DEC93: loop management variables, used in RCV.TK */ 

1090 /* and ENCAP states. -Nix */ 



1091 


int 


KUM.PRIOS ; 


1092 


int 


punt ; 


1093 


int 


q. check; 



1094 FIH (cp.lddi_mac.diag ()) 

1095 /* Print out values o! timers, and late token counter. */ 

1096 /* Also print out data about restricted mode. */ 

1097 /* (This code may be executed by the simulation debugger */ 

1098 /* by invoking the command 'modprint'). */ 

1099 sprint! (strO, ‘'Timers (count upwards): TRT C/..9g), THT C/..9g)", 

1100 fddi.timer.value (TRT), Iddi.timer. value (THT)); 

1101 sprint! (strl, "Late.ct (*/d)" , Late.Ct); 

1102 op.prg.odb.print .major (strO, strl, 0PC.HIL) ; 

1103 il (restricted) 

1104 sprint! (strO, "token is in restricted dialog with C/,d)\n", res.peer) 

1105 else sprint! (strO, "token is unrestricted\n") ; 
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1106 op_prg_odb_print .major (strO, OPC.NIL) ; 



1107 FOOT; 

1108 > 



1109 void 

1110 cp_lddi_mac_terminate () 

1111 { 

1112 /* Packets and ICI's */ 

1113 Packet* mac Jframe.ptr ; 

1114 Packet* pdu.ptr; 

1115 Packet* pkptr; 

1116 Packet* data.pkptr; 

1117 Ici* ici.ptr; 

1118 /* Packet Fields and Attributes */ 

1119 int req.pri, svc.class, req_tk_class ; 

1120 int Irame.control, src.addr, dest.addr; 

1121 int pk_len, pri.level; 

1122 /* Token - Related */ 

1123 int tk_usable, res_station, tk_class; 

1124 int current _tk_class ; 

1125 double accum.sync; 

1126 /* Timer - Related */ 

1127 double tx_time, timer.remaining, accum_bandwidth; 

1128 double tht_value; 

1129 /* Miscellaneous */ 

1130 int i; 

1131 int spawn.station, phy.arrival; 

1132 char error.string [512] ; 

1133 int num_frames_sent , num_bits_sent ; 

1134 /* 26DEC93: loop management variables, used in RCV.TK */ 

1135 /* and ENCAP states. -Nix */ 



1136 


int 


NUM.PRI0S; 


1137 


int 


punt ; 


1138 


int 


q.check; 



1139 FIN (cp.lddi.mac.terminate ()) 
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1140 FOUT; 

1141 > 



1142 Compcode 

1143 cp_fddi_mac_init (pr_stat©_pptr) 

1144 cp_fddi_mac_state **pr_state_pptr ; 

1145 { 

1146 static VosT_Cm_Obtype obtype = 0PC_NIL; 

1147 FIN (cp_fddi_mac_init (pr_state_pptr)) 

1148 i f (obtype == 0PC.MIL) 

1149 { 

1150 if (Vos_Catmem_Register ( M proc state vars (cp_fddi_mac) M , 

1151 sizeof (cp_fddi_mac_state) , Vos_Nop, ftobtype) == V0SC_FAILURE) 

1152 FRET (0PC_C0MPC0DE_FAILURE) 

1153 > 

1154 if ((*pr_state_pptr = (cp_fddi_mac_state*) Vos_Catmem_Alloc (obtype, l)) == 0PC_NIL) 

1155 FRET (0PC_C0MPC0DE_FAILURE) 

1156 else 

1157 { 

1158 (*pr_state_pptr)->current_block = 20; 

1159 FRET (OPC.COMPCODE.SUCCESS) 

1160 > 

1161 > 



1162 /** The procedures defined in this section serve **/ 

1163 /** to simplify the code in the main body of the **/ 

1164 /** process model by providing primitives for timer **/ 

1165 /** manipulation.. **/ 

1166 static 

1167 f ddi_timer_disable (timer_ptr) 

1168 FddiT_Timer* timer_ptr; 

1169 { 

1170 /* if the timer is already disabled, do nothing */ 

1171 if (timer_ptr->enabled) 

1172 { 

1173 /* disable the timer */ 

1174 timer_ptr->enabled = 0; 

1175 /* reassign the accumulated time so far */ 

1176 timer_ptr->accum = op_sim_time () - timer_ptr->start_time; 

1177 > 

1178 > 
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1179 static 

1180 fddi_timer_enable (timer.ptr) 

1181 FddiT_Timer* timer_ptr; 

1182 { 

1183 /* if the timer is already enabled, simply return */ 

1184 if ( !timer_ptr->enabled) 

1185 { 

1186 /* reenable the timer */ 

1187 timer_ptr->enabled = 1; 

1188 /* set the start time to the current time */ 

1189 /* less the accumulated time so tax +/ 

1190 timer_ptr->st art .time = op_sim_time () - timer_ptr->accum; 

1191 > 

1192 > 

1193 static 

1194 fddi_timer_expired (timer_ptr) 

1195 FddiT_Timer* timer_ptr; 

1196 { 

1197 it (fddi_timer_remaining (timer_ptr) <= 0.0) 

1198 return 1; 

1199 else return 0; 

1200 > 

1201 static 

1202 double 

1203 fddi_timer_remaining (timer_ptr) 

1204 FddiT_Timer* timer.ptr; 

1205 { 

1206 /* it the timer is enabled, update the accumulated time */ 

1207 it (timer_ptr->enabled) 

1208 { 

1209 timer_ptr->accum = op_sim_time () - timer_ptr->start_time ; 

1210 > 

1211 /* return the timer remaining before expiration */ 

1212 /* a non-positive value indicates an expired timer */ 

1213 return (timer_ptr->target_accum - t imer.pt r->ac cum ) ; 

1214 > 

1215 static 

1216 double 

1217 fddi_timer .value (timer_ptr) 

1218 FddiTJTimer* timer_ptr; 

1219 { 

1220 /* if the timer is enabled, update the accumulated time */ 

1221 if (timer _ptr->enabled) 

1222 { 

1223 timer_ptr->accum = op_sim_time () - timer_ptr->start_time ; 
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1224 



> 



1225 return (timer_ptr->accum) ; 

1226 > 

1227 static 

1228 Iddi.timer.set.value (timer.ptr, value) 

1229 FddiT.Timer* timer.ptr; 

1230 double value; 

1231 { 

1232 timer _ptr->accum = value; 

1233 > 

1234 

1235 static 

1236 fddi.timer.copy (lrom.timer.ptr , to.timer.ptr) 

1237 FddiT.Timer* lrom.timer.ptr; 

1238 FddiT.Timer* to.timer.ptr ; 

1239 { 

1240 Vos.Copy.Memory (lrom.timer.ptr # to.timer.ptr , 

1241 sizeol (FddiT .Timer)) ; 

1242 > 

1243 static 

1244 lddi.timer.set (timer.ptr, duration) 

1245 FddiT.Timer* timer.ptr; 

1246 { 

1247 /* clear out accumulated time */ 

1248 timer_ptr->accum = 0.0; 

1249 /* assign the timer duration */ 

1250 timer _ptr->target_accum = duration; 

1251 /* assign the current time */ 

1252 timer_ptr->start_time = op.sim.time (); 

1253 /* enable the timer */ 

1254 timer_ptr-> enabled = 1; 

1255 > 

1256 static 

1257 FddiT.Timer* 

1258 fddi.timer.create () 

1259 { 

1260 FddiT.Timer* timer.ptr; 

1260 /* allocate memory lor a timer structure */ 

1261 timer.ptr = (FddiT.Timer*) malloc (sizeol (FddiT.Timer) ) ; 

1262 /* initialize the timer in the disabled mode */ 

1263 fddi_timer_init (timer.ptr); 
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1264 /♦ return the timer's address */ 

1265 return (timer_ptr) ; 

1266 > 

1267 static 

1268 fddi_timer_init (timer.ptr) 

1269 FddiT_Timer* timer.ptr; 

1270 { 

1271 /* the timer is initially disabled */ 

1272 timer_ptr->enabled = 0; 

1273 /* the accumulated time is zero */ 

1274 timer_ptr->accum =0.0; 

1275 /* the target accumulated time is infinite ♦/ 

1276 timer_ptr->target_accum = VOS.DOUBLE.INFINITY; 

1277 /* the start time is now */ 

1278 timer_ptr->start_time = op_sim_time (); 

1279 > 

1280 static 

1281 fddi_station_register (address, objid) 

1282 Objid objid; 

1283 int address; 

1284 { 

1285 /* Fill an entry in the table which maps station */ 

1286 /* addresses to 0PNET object ids */ 

1287 FIH (fddi_station.register (address, objid)) 

1288 Fddi_Address_Table [address] = objid; 

1289 /* Keep track of total number of stations on the ring */ 

1290 Fddi_Hum_Stations++; 

1291 F0UT 

1292 > 

1293 static 

1294 fddi_tk_register () 

1295 { 

1296 /* Register the station's intent to use the token. */ 

1297 /* This should be done whenever an unregistered */ 

1298 /* station obtains new data to transmit. */ 

1299 FIN (fddi.tk.regsister ()) 

1300 /♦ increase the number of registered stations */ 

1301 Fddi_Num_Registered++; 

1302 /* if the token is currently blocked, unblock it */ 

1303 if (Fddi.Tk.Blocked kk Fddi_Tk_Accelerate) 

1304 { 
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1305 fddi.tk.unblock (); 

1306 > 

1307 FOOT 

1308 > 

1309 static 

1310 fddi.tk.deregister () 

1311 { 

1312 /* Cancel the station's intent to use the token. */ 

1313 /* This should be done whenever a registered */ 

1314 /* station exhausts its transmittable data. */ 

1315 FIM (fddi.tk.deregsister ()) 

1316 /* decrease the number of registered stations */ 

1317 Fddi.Num.Registered — ; 

1318 FOOT 

1319 > 

1320 static 

1321 fddi_tk.indicate_no.data (token, address, delay) 

1322 Packet* token; 

1323 int address; 

1324 double delay; 

1325 { 

1326 FIN (fddi.tk_indicate_no.data (token, address, delay)) 

1327 /* The calling station is indicating that it has captured */ 

1328 /* the token, but has no data to send. If no other stations */ 

1329 /* have data to send either, the token may be blocked to gain */ 

1330 /* simulation efficiency. */ 

1331 if (Fddi_Num_Registered == 0 kk Fddi.Tk.Accelerate) 

1332 { 

1333 fddi.tk.block (token, address); 

1334 > 

1335 else{ 

1336 /* If the token cannot be blocked, send it into the ring. */ 

1337 op.pk. s end.del ay ed (token, FDDI.PHY.STRM.OOT, 

1337 delay + Fddi_Prop_Delay) ; 

1338 > 

1339 FOOT 

1340 > 

1341 static 

1342 fddi.tk.block (token, address) 

1343 Packet* token; 

1344 int address; 

1345 { 

1346 int i; 
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1347 FIH (tddi.tk.block (token, address)) 

1348 /* Record the address of the blocking station and blocking time. +/ 

1349 Fddi.Tk_Block_Base.Time = op.sim.time (); 

1350 Fddi.Tk_Block_Base.Stat ion * address; 

1351 it (tk.trace.on == OPC.TRUE) 

1352 { 

1353 sprint! (strO, '‘Blocking Token: station Old) , time 01.9!)", 

1354 Fddi_Tk.Block_Base.Stat ion, Fddi_Tk_Block.Base.Time); 

1355 op.prg_odb_print.maj or (strO, OPC.NIL) ; 

1356 > 

1357 /* Indicate that the token is blocked */ 

1358 Fddi.Tk.Blocked = 1; 

1359 /* discard the token packet; another one will be */ 

1360 /* created when the token is unblocked. */ 

1361 op.pk.destroy (token) ; 

1362 /* Cancel TRT timers at all MAC interfaces; otherwise these */ 

1363 /* timers may continue to expitr during the idle period, */ 

1364 /* generating unnecessary events. */ 

1365 i! (tk.trace.on == OPC.TRUE) 

1366 { 

1367 sprint! (strO, "Canceling timers !or (%d) stations", Fddi.Num.Stations) ; 

1368 op.prg.odb.print .major (strO, OPC.NIL); 

1369 > 

1370 !or (i = 0; i < Fddi.Num.Stations; i++) 

1371 { 

1372 /* Retain the time at which the TRT would have expired; */ 

1373 /* this is used !or calculations when the token is */ 

1374 /* reinjected into the ring. */ 

1375 Fddi.Trt.Exp.Time [i] = op.ev.time (Fddi.Trt. Handle [i]); 

1376 /* Csincel the TRT expiration event. */ 

1377 op.ev.caincel ( Fddi.Trt .Handle [i] ) ; 

1378 > 

1379 FOOT 

1380 > 

1381 static 

1382 !ddi_tk_unblock () 

1383 { 

1384 double elapsed.time, !irst.tk_rx, last.tk.rx; 

1385 double tk.lap.time, next.time, current.time; 

1386 double dbl.num.hops , num.tk.rx, !loor (), ceil (); 

1387 int i, num.hops, next.station; 
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1388 FIN (lddi_tk_unblock ()) 

1389 /* reset the blocking indicator */ 

1390 Fddi.Tk.Blocked = 0; 

1391 /♦ Get the current time, used lor many calculations below */ 

1392 current .time = op.sim.time (); 

1393 il (tk.trace.on == OPC.TRUE) 

1394 { 

1395 sprintl (strO, "Unblocking token lor ring Old)", ring. id) ; 

1396 op.prg.odb.print. major (strO, OPC.NIL) ; 

1396 > 

1397 /* For all stations on the ring, adjust TET timer and Late.Ct Hag. */ 

1398 lor (i = 0; i < Fddi.Num.Stations ; i++) 

1399 { 

1400 il (tk.trace.on == OPC.TRUE) 

1401 { 

1402 sprintl (strO, "adjusting state ol station C/.d)", i) ; 

1403 op.prg.odb.print .minor ("", strO, OPC.NIL); 

1404 > 

1405 /* Calculate number ol hops separating station i Irom block base station. */ 

1406 /* In special case where i is the base station, the token must run a lull */ 

1407 /* lap belolre returning. */ 

1408 il (i != Fddi.Tk.Block.Base.Station) 

1409 { 

1410 num.hops = (i - Fddi_Tk_Block_Base_Station) */, Fddi.Num.Stations ; 

1411 il (num.hops < 0) 

1412 num.hops = Fddi.Num.Stations + num.hops; 

1413 > 

1414 else num.hops = Fddi.Num.Stations ; 

1415 /♦ Calculate lirst time at which token would have been received by station i. */ 

1416 /* Note that initial release ol token Irom base station takes a dillerent */ 

1417 /* amount ol time them repeating ol token by other stations. Thus, the lirst */ 

1418 /* hop is assumed, and the base time is augmented by the time required to */ 

1419 /* complete it. */ 

1420 lirst. tk.rx = Fddi.Tk_Block_Base.Time + FDDIC.TOKEN.TX.TIME + Fddi.Prop.Delay + 

1421 (num.hops - 1) * Fddi.Tk.Hop.Delay ; 

1422 il (tk.trace.on == OPC.TRUE) 

1423 { 

1424 sprintl (strO, "station is (*/,d) hops Irom base", num.hops); 

1425 sprintl (strl, "lirst receipt ol token would be at (y,.91)", lirst.tk.rx) ; 

1426 op.prg.odb.print .minor (strO, strl, OPC.NIL) ; 

1427 > 

1428 /* Case 1: the token would not yet have been received by station i. */ 

1429 il (lirst.tk.rx > current.time) 
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1430 { 

1431 /* Case la: the TRT at station i would not yet have expired. */ 

1432 i ! (Fddi.Trt.Exp.Time [i] > current .time) 

1433 { 

1434 /* Late.Ct remains at its original value; only the TRT needs */ 

1435 /* to be started again, with the same expiration time. */ 

1436 TRT.SET (i, Fddi.Trt.Exp.Time [i] ) 

1437 i! (tk.trace.on == OPC.TRUE) 

1438 { 

1439 sprint! (strO, "Restoring TRT to previous exp. time (54.9!)" , Fddi.Trt.Exp.Time [i] ) ; 

1440 op.prg.odb.print .minor ("Token would not be received and TRT not expired", strO, OPC.NIL) ; 

1441 > 

1442 > 

1443 /* Case lb: the TRT at station i would have expired. */ 

1444 else 

1445 { 

1446 /* Late.Ct would have been set; also the timer would have been rescheduled */ 

1447 /* !or an entire TTRT at the time o! expiration. */ 

1448 Fddi.Late.Ct [i] = 1; 

1449 TRT. SET (i, (Fddi.T.Opr + Fddi_Trt.Exp.Time [i])) 

1450 i! (tk.trace.on == OPC.TRUE) 

1451 { 

1452 sprint! (strO, "Restoring TRT to proper exp. time (54.9!)", Fddi.T.Opr + Fddi.Trt.Exp.Time 

1453 op.prg.odb.print .minor ("Token would not be received and TRT would have expired", strO, OP 

1454 > 

1455 > 

1456 > 

1457 /* Case 2: the token would have been received (perhaps more them once). */ 

1458 else 

1459 { 

1460 /* Calculate the number o! times the token would have been received */ 

1461 /* not including the !irst receipt. */ 

1462 tk.lap.time = Fddi.Tk.Hop.Delay * Fddi.Num.Stations; 

1463 num.tk.rx = !loor ((current. time - iirst.tk.rx) / tk.lap.time); 

1464 /* Calculate the latest time at which the token would have been received. */ 

1465 last.tk.rx = !irst.tk.rx + (num.tk.rx ♦ tk.lap.time); 

1466 

1467 /* Clear Late.Ct 2 nd schedule timer to expire at last receipt o! token */ 

1468 /♦ plus one !ull TTRT. ♦/ 

1469 Fddi.Late.Ct [i] = 0; 

1470 TRT.SET (i, (last.tk.rx + Fddi.T.Opr)) 

1471 i! (tk.trace.on == OPC.TRUE) 

1472 { 

1473 sprint! (strO, "token received (5(g) times, last receipt at (54.9!)", 

1474 num.tk.rx + 1.0, last.tk.rx); 

1475 sprint! (strl, "Restoring TRT to proper exp. time (54.9!)", 
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1476 last.tk.rx + Fddi.T.Opr) ; 

1477 op.prg.odb.print .minor ("Token would have been received; Late.Ct is cleared", 

1478 strl , strO, OPC.NIL) ; 

1479 > 

1480 > 

1481 > 

1482 /* compute the time since the token was blocked */ 

1483 elapsed.time = current .time - Fddi.Tk_Block_Base.Time; 

1484 /* compute the number o f hops completed on the ring. For the first hop */ 

1485 /* the token is transmitted directly, not repeated. For all remaining */ 

1486 /* hops, the delay is the station latency plus the propagation delay. */ 

1487 /* Thus, the first hop is assumed, and the remaining time for additional*/ 

1488 /* hops is computed beginning at the time where the token enters the */ 

1489 /* base station's downstream neighbor. */ 

1490 dbl.num.hops =1.0+ 

1491 (elapsed.time - FDDIC.TOKEN.TX.TIME - FddiJProp .Delay) / Fddi.Tk.Hop.Delay ; 

1492 /* If the token was unblocked in less time than it would have taken to */ 

1493 /* be fully transmitted by the base station, dbl.num.hops will be */ 

1494 /* negative. However, 1 full hop would still be required before the */ 

1495 /* token could be used, since the station had already committed to */ 

1496 /* issuing the token. Thus, the actual of number of hops should never */ 

1497 /* be less than 1. If it is, round it to 1. */ 

1498 if (dbl_num_hops < 1.0) 

1499 dbl_num_hops = 1.0; 

1500 else 

1501 { 

1502 /* In all other cases, round the number of hops up to the nearest */ 

1503 /* integer value. If already an integer, then leave as is. */ 

1504 dbl_num_hops = ceil (dbl_num_hops) ; 

1505 > 

1506 /* Obtain an integer equivalent of dbl_num_hops . */ 

1507 num_hops = dbl_num_hops ; 

1508 /* Based on the number of hops and the base station, compute the */ 

1509 /* next station where the token will appear. */ 

1510 next_station = (num.hops + Fddi_Tk_Block_Base_Station) '/, Fddi_Num_Stations ; 

1511 /* Compute the time at which the token will appear there. */ 

1512 /* Again, assume the first hop occurred, and measure time */ 

1513 /* from there forward. */ 

1514 next_t ime = Fddi_Tk_Block_Base_Time + (FDDIC.T0KEN_TX.TIHE + Fddi.Prop.Delay) + 

1515 (dbl.num.hops - 1.0) * Fddi.Tk.Hop.Delay ; 

1516 if (tk.trace.on == 0PC.TRUE) 

1517 { 

1518 sprintf (strO, "Re-introducing token at station C/,d) , at time ('/..9f)", 

1519 next. station, next.time) ; 
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1520 op_prg_odb_print_minor (strO, OPC_NIL) ; 

1521 > 

1522 /* reinject the token at that station */ 

1523 fddi_tk_inject (next_station, next.time); 

1524 FOUT 

1525 > 

1526 static 

1527 fddi_tk_inject (address, arv_time) 

1528 int address; 

1529 double arv_time; 

1530 { 

1531 /* Re-insert the token into the ring alter an idle period. */ 

1532 FIN (fddi.tk. inject (address, arv.time)) 

1533 /* The token is recreated and reinserted onto the ring ♦/ 

1534 /♦ at the specified station which is not necesssarily the ♦/ 

1535 /* station now requesting the token. */ 

1536 /* The station which will reinsert the token is */ 

1537 /* asked to do so by means of a remote interrupt. */ 

1538 op_intrpt_schedule_r emote (arv_time, FDDIC_TK_INJECT, 

1539 Fddi_Address_Table [address]); 

1540 FOUT 

1541 > 

1542 static 

1543 fddi_load_frame_attrs (dest_addr_ptr , svc_class_ptr , pri_level_ptr) 

1544 int *dest_addr_ptr , *svc_class_ptr , *pri_level_ptr ; 

1545 { 

1546 int HUM.PRIOS, i; /* 26JAN94 */ 

1547 Packet *pkptr; 

1548 FIN (fddi_load_frame_attrs (dest_addr_ptr , svc.class.ptr , pri.level.ptr) ) 

1549 /* remove next packet in queue */ 

1550 /* 27DEC94: loop structure superimposed to handle a bank of subqueues. */ 



1551 /* Extract the packet with the highest priority, that is, the packet */ 

1552 /* at the head of the highest-numbered subqueue containing packets. */ 

1553 /* Note that the C language vector numbering convention numbers the ♦/ 

1554 /* subqueues from 0 to 7, while FDDI convention is to number the */ 

1555 /* corresponding asynchronous priorities from 1 to 8. This is */ 

1556 /* reconciled in the statistical outputs available in the Analysis */ 

1557 /* Editor, where labels are assigned accordingly. Also note that */ 

1558 /* synchronous traffic is assigned priority 8 as am artifice to allow */ 

1559 /* routing through a separate subqueue, by which statistics may be */ 

1560 /* gathered for traffic by class and by priority. -Nix */ 

1561 NUM.PRI0S = 9; 

1562 for (i = NUM.PRI0S - 1; i > -1; i~) 
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1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 



{ 

if (op.subq.stat (i, OPC.QSTAT.PKSIZE) >0.0) 

{ 

pkptr = op_subq_pk_remove (i, OPC.QPOS.HEAD) ; 
break; 

> 

> 

/* extract the fields of interest */ 
op.pk_nfd.get (pkptr, "dest.addr" , dest.addr.ptr) ; 
op.pk_nfd.get (pkptr, M svc. class" , svc.class.ptr) ; 



1573 /* only read priority level if frame is asynchronous */ 

1574 if (*svc_class_ptr == FDDI.SVC.ASYNC) 

1575 op.pk_nfd.get (pkptr, "pri", pri.level.ptr) ; 



1576 /♦ replace the packet on the proper subqueue */ 

1577 op.subq.pk.insert (i, pkptr, OPC.QPOS.HEAD) ; 



1578 FOUT 

1579 > 
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APPENDIX C 
CPNI SINK “C” CODE 
u cp_fddi_sink.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* Process model C form file: cp_lddi.sink.pr . c */ 

2 /* Portions of this file Copyright (C) MIL 3, Inc, 1992 */ 



2 /* OPNET system definitions */ 

3 # include <opnet.h> 

4 #include "cp.fddi.sink.pr.h" 

5 FSM.EXT.DECS 



6 /* Header block */ 

7 /* Globals ♦/ 

8 /♦ array format installed 20JAN94; positions 0-7 represent the asynch priority levels, PRIOR 

9 /* represents synch traffic, and grand totals are as given in the original. 



10 #def ine PRIORITIES 8 /* 20JAN94 */ 

11 #def ine XMITTER.ONE 0 /♦10MAY94*/ 

12 #def ine XMITTER.TWO 1 

13 #def ine XMITTER.THREE 2 

14 #def ine XMITTER.FOUR 3 



15 static /* 05FEB94 */ 

16 double f ddi.sink.accum.delay = 0.0; 

17 static /* 05FEB94 */ 

18 double f ddi_sink_accum.delay.a[PRIORITIES+l] ={0 .0 , 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 

19 static /* 05FEB94 */ 

20 int fddi.sink_total.pkts = 0; 

21 static /* 05FEB94 */ 

22 int fddi.sink.total.pkts.a [PRIORITIES +1] ={0, 0, 0, 0, 0, 0, 0, 0, 0}; 

23 static /* 05FEB94 ♦/ 

24 double fddi_sink.total.bits = 0.0; 

25 static /* 05FEB94 ♦/ 

26 double f ddi_sink.total.bits.a[PRI0RITIES+l]={0 . 0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 

26 static /* 05FEB94 */ 

27 double f ddi.sink.peak.delay = 0.0; 

28 static /* 05FEB94 */ 

29 double fddi_sink_peak_delay_a[PRI0RITIES+2]={0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
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/* 05FEB94 */ 



30 static 

31 int fddi_sink_scalar_write = 0; 

32 static /* 05FEB94 */ 

33 int preset = 20; /* 20JAN94 */ 

34 static 

35 int subq_index = 0; /* 5APR94 */ 

36 static 

37 int prev_src_addr[4]={0, 1, 2, 3>; /*25APR94*/ 

38 double butter [4] ={0.0,0. 0.0. 0,0.0}; /*10MAY94*/ 



39 /* statistics used lor CDL throughput */ 

40 static /* 20APR94 */ 

41 int f ddilpl_total_pkts = 0; 

42 static 

43 int fddilpl_total_pkts_a [PRIORITIES +1] ={0, 0, 0, 0, 0, 0, 0, 0, 0}; 

44 static 

45 double f ddilpl_total_bits = 0.0; 

46 static 

47 double f ddilpl_total_bits_a [PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, O.f 



48/* Externally defined globals. */ 

49 extern double f ddi_t_opr □ ; 

50 /*12JAN94: attributes from the Environment file */ 

51 double Of f ered_Load; /* 12JAN94 */ 

52 double Asynch_0f f ered_Load; /* 12JAN94 */ 

53 /* transition expressions */ 

54 #def ine END_0F_SIM op_intrpt_type() == 0PC_INTRPT_ENDSIM 



55 /* State variable definitions */ 

56 typedef struct 

67 { 

58 FSM.SYS.STATE 



59 Gshandle 

60 Gshandle 

61 Gshandle 

62 Gshandle 

63 Gshandle 

64 Gshandle 

65 Gshandle 

66 Gshandle 

67 Objid 

68 > cp_fddi_sink_state; 



sv_thru_gshandle ; 
sv_m_delay_gshandle ; 
s v_ete_delay .gshandle ; 
s v_thru_gshandle_a [10] ; 
sv_m_delay_gshandle_a[lO] ; 
sv_ete_delay_gshandle_a[9] ; 
sv_t_gshandle; 
sv_t_gshandle_a[10] ; 
sv_my_id; 



69 #define pr_state_ptr 



( ( cp_f ddi_sink_stat e* ) SimI_Mod_State_Ptr ) 
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70 tfdefine thru.gshandle 

71 #define m.delay.gshandle 

72 #define ete.delay.gshandle 

73 #define thru_gshandle_a 

74 #define m.delay.gshandle.a 

75 tdefine ete.delay.gshandle.a 

76 #define t.gshandle 

77 #define t_gshandle_a 

78 #define my.id 



pr_state_ptr->sv_thru_gshandle 

pr_state_ptr“>sv_m_delay.gshandle 

pr_state_ptr->sv_ete.delay.gshandle 

pr_state_ptr->sv_thru.gshandle_a 

pr_state_ptr->sv_m.delay.gshandle_a 

pr_state.ptr->sv_ete.delay.gshandle_a 

pr_state.ptr->sv.t_gshandle 

pr_state_ptr->sv_t.gshandle_a 

pr_state_ptr->sv_my_id 



79 /* Process model interrupt handling procedure */ 



80 void 

81 cp.fddi.sink () 

82 { 

83 double delay, creat.time; 

84 Packet* pkptr; 

85 Packet* pkptrl ; /*5APR94*/ 

86 int src.addr, my.addr; 

87 int dest_addr;/*14APR94*/ 

88 Ici* lrom_mac.ici.ptr; 

89 double f ddi.sink.ttrt ; 

90 int xmit_subq_index;/*5APR94*/ 

91 int load.balance.code; /*6APR94*/ 

92 int i, subq.no; /*25APR94*/ 

93 int index; /*10MAY94 */ 



94 FSH.ENTER (cp.fddi.sink) 

95 FSH.BLOCK.SWITCH 

{ 

96 /* */ 

97 /** state (DISCARD) enter executives **/ 

98 FSM.STATE.ENTER.UNFORCED (0, stateO.enter.exec, "DISCARD 11 ) 

99 { 

100 /* determine type of interrupt : 1 OKA Y94 */ 

101 switch (op.intrpt.typeO) 

102 { 

103 case OPC.INTRPT.STAT: 

104 /* the interrupt is caused by the transmitters' status */ 

105 { 

106 index = op.intrpt.stat () ; 

107 switch(index) 

108 { 
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109 case XMITTER.ONE: 

110 { 

111 buffer [0] = op_stat_local_read(XMITTER_ONE) ; 

112 break; 

113 > 

114 case XMITTER.TWO: 

115 { 

116 buffer [1] = op_stat_local_read(XMITTER_TWO) ; 

117 break; 

118 > 

119 case XMITTER.THREE: 

120 { 

121 buffer [2] = op.stat.local.read (XMITTER.THREE) ; 

122 break; 

123 > 

124 case XHITTER.FOUR: 

125 { 

126 buffer [3] = op_stat_local_read(XMITTER_FOUR) ; 

127 break; 

128 > 

129 default: 

130 { 

131 op_sim_end(”*** FDDI-CDL : FATAL ERROR” , "Unexpected stat interrupt”,””,””); 

132 > 

133 > 

134 break; 

135 > 

136 case OPC.INTRPT.STRM: 

137 /* the interrupt is caused by the incoming packets */ 

138 { 

139 /* get the packet and the interface control info */ 

140 pkptr = op.pk.get (op.intrpt.strm ()); 

141 from.mac_ici.ptr = op.intrpt.ici (); 

142 /* 20JAN94: get the packet's priority level, which */ 

143 /* will be used to index arrays of thruput and delay */ 

144 /* computations. */ 

145 /* pri.set = op.pk.priority.get (pkptr); doesn't work here */ 

146 op.pk_nfd.get (pkptr, "pri”, tpri.set); /* 29JAN94 */ 

147 /* determine the time of creation of the packet */ 

148 op.pk_nfd.get (pkptr, "cr.time", kcreat.time) ; 

149 /* 18APR94: determine the destination address of the packet */ 

150 op.pk_nfd.get (pkptr, "dest.addr”, fcdest.addr) ; 

151 /* 20APR94: determine the source address of the packet */ 

152 op.pk_nfd.get (pkptr, "src.addr" , ksrc.addr) ; 

153 /* 7APR94: determine id of own processor to use in finding */ 

154 /* load balancing attribute and station address of the bridge node */ 
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155 my.id = op.id.self () ; 



156 /* 7APR94: determine which load balancing algorithm is in use */ 

157 op.ima_obj_attr.get ( my.id, "load balancing algorithm*', fcload.balance.code ); 

158 /* 14APR94 : also get my own address */ 

159 op.ima_obj_attr.get ( my.id, "station.address" , fcmy.addr); 

160 /* destroy the packet */ 

161 /* op.pk.destroy (pkptr) ; */ 

162 /* 03FEB94: rather, enqueue the packet. This will be the */ 

163 /* first step toward developing a LAN bridging structure. */ 

164 /* -Nix */ 

165 /* op.subq.pk. insert (pri.set, pkptr, OPC.QPOS.TAIL) ; */ 

166 /* 14APR94: check the frame passed to "lie" is destined for */ 

167 /* this station. If it is destroy the packet and update the local traffic */ 

168 /* statistics; if not, allocate the packets ♦/ 

169 /* to the transmitters since they are destined for the remote lan */ 

170 /* update also incoming return link statistics for the frames */ 

171 /* which will be queued in llc_sink to be sent to remote lan.*/ 

172 /* -Karayakaylar */ 

173 if ((dest.addr == my_addr)fc&(src_addr < my.addr)) 

174 { 

175 /* add in its size */ 

176 fddi_sink.total.bits += op_pk.total_size.get (pkptr); 

177 fddi.sink.total.bits.a[pri.set] += op.pk_total_size.get (pkptr); /* 20JAN-20APR94 */ 

178 /* accumulate delays */ 

179 delay = op.sim.time () - creat.time; 

180 fddi.sink.accum.delay += delay; 

181 fddi.sink.accum.delay.aCpri.set] += delay; /* 20JAN-20APR94 */ 

182 /* keep track of peak delay value */ 

183 if (delay > fddi.sink.peak.delay) 

184 fddi.sink.peak.delay = delay; 

185 /* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 

186 if (delay > fddi.sink.peak.delay.a[pri.set] ) 

187 fddi_sink_peak_delay_a[pri_set] = delay; 

188 op.pk.destroy (pkptr) ; 

189 /* increment packet counter; 20JAN94 */ 

190 fddi_sink_total_pkts++; 

191 f ddi_sink.total.pkt s.a [pri.set] ++ ; 

192 /* if a multiple of 25 packets is reached, update stats */ 

193 /* 03FEB94: [0]->[7] represent asynch priorities l->8, */ 

194 /* respectively; [8] represents synchronous traffic, */ 
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195 /* and [9] represents overall asynchronous tragic. -Nix */ 

196 if (fddi.sink_total.pkts */, 25 == 0) 

197 { 

198 op.stat.global.write (t hr u_gs handle , 

199 fddi.sink.total.bits / op.sim.time ()); 



200 op.stat.global.write (thru. 

201 f dd i _ s ink.t ot al . 

202 op.stat.global.write (thru. 

203 fddi.s ink.t otal. 

204 op.stat.global.write (thru. 

205 fddi.s ink.t otal. 

206 op_stat_global_write (thru. 

207 fddi.s ink.t ot al . 

208 op.stat.global.write (thru. 

209 fddi.s ink.t otal. 

210 op.stat.global.write (thru. 

211 fddi.sink.total. 

212 op_stat_global_write (thru. 

213 fddi.sink.total. 

214 op.st at .global .write (thru. 

215 fddi.sink.total. 

216 op.stat.global.write (thru. 

217 fddi.sink.total. 

218 op.stat.global.write (thru. 

219 fddi.sink.total. 



.gshandle.aCpri.set] , 

.bits.aCO] / op.sim.time ()) ; 
.gshandle.aCO] , 

.bits.aCl] / op.sim.time ()) ; 
.gshandle.aCl] , 

.bits.aCpri.set] / op.sim.timeO) ; 
,gshandle_aC2] , 
bits_a[2] / op.sim.timeO); 
.gshandle.aC3] , 

,bits_aC3] / op.sim.timeO); 
.gshandle_aC4] , 

,bits_a[4] / op.sim.timeO); 
,gshandle_aC5] , 

.bits.aCS] / op.sim.timeO); 
.gshandle_aC6] , 

.bits_a[6] / op.sim.timeO); 
,gshandle_aC7] , 

,bits_a[7] / op.sim.timeO); 
.gshandle_aC8] , 

.bits_a[8] / op.sim.timeO); 



220 /* 30JAN94: gather all asynch stats into one overall figure */ 

221 op.stat.global.write (thru_gshandle_a[9] , 

222 (fddi.sink.total.bits - f ddi.s ink.t otal .bits _aC8] ) / 

223 op.s im.t ime ( ) ) ; 



224 


/* 


(fddi.sink_total_bits.aC0] 


+ 


fddi.sink_total_bits.aCl] + 


*/ 


225 


/* 


fddi_sink_total_bits_a[2] 


+ 


fddi.sink_tot2Ll_bits.aC3] + 


*/ 


226 


/* 


fddi_sink_total_bits_a[4] 


+ 


fddi.sink.total_bits.aC5] + 


*/ 


227 


/* 


fddi_sink_total_bits_a[6] 


+ 


fddi_sink_total_bits_aC7] ) / 


*/ 


228 


/* 


op.sim.timeO) ; 






*/ 



229 op_stat_global .write (m.delay.gshandle , 

230 fddi.s ink.accum.delay / fddi.s ink.t otal.pkts) ; 



231 

232 

233 

234 

235 

236 

237 

238 



op.stat.global.write 
fddi.s ink. 
op_stat_global_write 
fddi.s ink. 
op.st at .global.write 
fddi.s ink. 
op.stat.global.write 
f ddi_sink_ 



(m.delay .gshandle.aCO] , 

accum.delay.aCO] / f dd i_ s ink.t otal.pkts.a CO] ) 
(m.delay .gshandle.aCl] , 

accum.delay.aCl] / f ddi.s ink. t ot al _pkt s _a C 1] ) 
( m.delay _gshandle_aC2] , 

,accum_delay_a[2] / fddi.s ink.t otal.pkt s.a C2] ) 
(m.delay _gshandle_aC3] , 

accum_delay_a[3] / fddi.s ink.t otal_pkts_aC3] ) 
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239 


op.stat 


.global.write (m.delay.gshandle. 


a [4], 




240 




fddi_sink.accum.delay.aC4] / 


lddi_sink_total_pkts_a[4] ) ; 




241 


op.stat 


.global. write (m_delay_gshandle.a[5] , 




242 




f ddi.sink.accum.delay.a [5] / 


f ddi_sink_total_pkts_a[5] ) ; 




243 


op.stat 


.global.write (m.delay.gshandle. 


a [6] , 




244 




f ddi.sink.accum.delay.a [6] / 


fddi_sink.total_pkts_a[6] ) ; 




245 


op.stat .global.write (m_delay.gshandle. 


a [7], 




246 




fddi.sink.accum.delay.a[7] / 


fddi_sink_total_pkts_a[7] ) ; 




247 


op.stat 


.global.write (m.delay.gshandle. 


a [8] , 




248 




f ddi.sink.accum.delay.a [8] / 


f ddi.sink.total.pkts.a[8] ) ; 




249 /* 


30JAN94: ; 


gather all asynch stats into one 


figure */ 




250 


op.stat. 


.global.write (m_delay_gshandle. 


a [9] , 




251 




(fddi.sink.accum.delay - fddi 


.sink.accum.delay.a[8] ) / 




252 




(fddi.sink_total.pkts - fddi. 


sink_total_pkts_a[8])) ; 




253 


A 


(fddi.sink.accum.delay.a[0] 


+ fddi.sink.accum.delay.a[l] + 


*/ 


254 


A 


f ddi.sink.accum.delay.a [2] 


+ f ddi.sink.accum.delay.a [3] + 


*/ 


256 


A 


f ddi.sink.accum.delay.a [4] 


+ f ddi.sink.accum.delay.a [5] + 


*/ 


256 


A 


f ddi.sink.accum.delay.a [6] 


+ f ddi.sink.accum.delay.a [7] ) / 


*/ 


257 


A 


(fddi_sink_total_pkts_a[0] + 


fddi.sink_total_pkts_a[l] + 


*/ 


258 


A 


fddi_sink_total_pkts_a[2] + 


fddi.sink.total_pkts_a[3] + 


*/ 


259 


A 


fddi_sink_total.pkts.a[4] + 


fddi.sink.total.pkts_a[5] + 


*/ 


260 


A 


fddi_sink_total_pkts_a[6] + 


fddi_sink.total_pkts.aC7] )) ; 


*/ 



261 /* also record actual delay values */ 

262 op.stat.global.write (ete.delay.gshandle , delay); 

263 op.stat.global.write (ete_delay.gshandle_aCpri.set] , delay); 

264 > 

265 > /* end o f if(dest.addr == my.addr)kfc(src_addr < my.addr) statement */ 

266 /* 20APE94: destroy the packets coming from the remote Ian destined for this*/ 

267 /* station. These packets are not counted for local traffic.*/ 

268 else if(dest.addr == my.addr) 

269 op_pk_destroy(pkptr) ; 

270 /* 20APR94: check the frame passed to "lie" is destined for remote lan */ 

271 /* This will allow only the packets to be counted for CDL traffic.*/ 

272 /* -Karayakaylar */ 

273 else 

274 { 

276 /* add in its size */ 

276 fddilpl_total_bits += op.pk_total_size.get (pkptr) ; 

277 fddilpl.total_bits_aCpri.set] += op.pk_total_size.get (pkptr); /* 20APR94 */ 

278 /* increment packet counter; 20APR94 */ 

279 f ddilpl.total_pkts++; 
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280 f ddilpl_total_pkts_a [pri_set] ++ ; 

281 /* if a multiple of 25 packets is reached, update stats */ 

282 /* [0] -> [7] represent asynch priorities l->8, */ 

283 /* respectively; [8] represents synchronous traffic, */ 

284 /* and [9] represents overall asynchronous traffic. -Nix */ 

285 if (fddilpl.total.pkts % 25 == 0) 

286 { 

287 op_stat_global_write (t_gshandle, 

288 fddilpl_total_bits / op.sim.time ()); 



289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 



op_stat_global_write (t_gshandle_a[pri_set] , 

fddilpl_total_bits_a[0] / op_sim_time() ) ; 
op_stat_global_write (t_gshandle_a[0] , 

fddilpl_total_bits_a[l] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[l] , 

fddilpl_total_bits_a[pri_set] / op_sim.time() ) ; 
op_stat_global_write (t_gshandle_a[2] , 

fddilpl_total_bits_a[2] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[3] , 

fddilpl_total_bits_a[3] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[4] , 

fddilpl_total_bits_a[4] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[5] , 

fddilpl_total_bits_a[5] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[6] , 

fddilpl_total_bits_a[6] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[7] , 

fddilpl_total_bits_a[7] / op_sim_time()) ; 
op_stat_global_write (t_gshandle_a[8] , 

fddilpl_total_bits_a[8] / op_sim_time()) ; 



309 /* 

310 

311 

312 



gather all asynch stats into one overall figure */ 
op_stat_global_write (t_gshandle_a[9] , 

(fddilpl_total_bits - fddilpl_total_bits_a[8] ) / 
op.sim.timeQ) ; 



313 


/* 


(fddilpl_total_bits_a[0] 


+ fddilpl_total_bits_a[l] + 


*/ 


314 


/* 


fddilpl_total_bit*_a[2] 


+ fddilpl_total_bits_a[3] + 


*/ 


315 


/* 


fddilpl_total_bits_a[4] 


+ fddilpl_total_bits_a[5] + 


*/ 


316 


/* 


fddilpl_total_bits_a[6] 


+ fddilpl_total_bits_a[7] ) / 


*/ 


317 


/* 


op_sim_time()) ; 







318 > 



319 /* 14APR94 : allocate the packets to llc_sink subqueues */ 

320 /* 6APR94 -Karayakaylar*/ 
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321 /* check if load balancing algorithm is circular */ 

322 /* zero(O) is the circular load balancing code */ 

323 if (load.balance.code == 0) 

324 { 

328 /* 5APR94 */ 

326 /* Apply load balancing to insert the packets in the */ 

327 /* subqueues, in a circular order */ 

328 i = subq.index */, 4; 

329 /* check if previous source address is allocated to this queue */ 

330 /* if so, allocate the packet to that subqueue so that consecutive packets */ 

331 /* coming from the same station follow the same channel */ 

332 /* otherwise, allocate the packet to the next queue for transmission */ 

333 if (prev.src.addr [i] == src.addr) 

334 { 

338 op.subq_pk_insert(i, pkptr, OPC.QPOS.TAIL); 

336 prev.src.addr [i] = src.addr; 

337 > 

338 else 

339 { 

340 subq.index++; 

341 subq.no = subq.index % 4; 

342 op.subq.pk_ insert (subq.no, pkptr, OPC.QPOS.TAIL) ; 

343 prev.src.addr [subq.no] = src.addr; 

344 > 

348 > 



346 /* 25APR94 */ 

347 /* check if load balancing algorithm is empty allocation */ 

348 /* one(l) is the empty allocation load balancing code */ 

349 if (load.balance.code == 1) 

380 { 

381 i= subq. index */. 4; 

382 /* check if previous source address is allocated to this queue */ 

383 if (prev.src.addr [i] == src.addr) 

384 { 

386 op_subq.pk_insert(i, pkptr, OPC.QPOS.TAIL); 

366 prev.src.addr [i] = src.addr; 

367 > 

368 else 

369 /* Apply load balancing to insert the packets in the */ 

360 /* subqueues by choosing the subqueue which has the maximum current */ 

361 /* number of free packet slots */ 

362 { 

363 subq.no = op_subq_index_map(OPC.QSEL.KAX.FREE_PKSIZE) ; 

364 op. subq.pk. insert (subq.no, pkptr, OPC.QPOS.TAIL); 

366 prev.src.addr[subq_no] = src.addr; 

366 subq_index++; 

367 > 

368 > 
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369 /* send the packets to the transmitters */ 

370 xmit_subq_index = i; 

371 /* check if this subqueue is empty and transmitter is not busy */ 

372 if (C !op_subq_empty(xmit_subq_index) )&&(buffer [xmit_subq_index] == 0.0)) 

373 { 

374 /*access the first packet in the subqueue */ 

375 pkptrl = op_subq_pk_remove (xmit_subq_index, 0PC_QP0S_HEAD) ; 

376 /* forward it to the destination xmitter */ 

377 /* associated with the subqueue index */ 

378 op_pk_send (pkptrl, xmit_subq_index ); 

379 > 

380 }/*if (dest_addr > my_addr) statement */ 

381 break; 

382 }/* end of case OPC_INTRPT_STRM statement */ 

383 >/♦ end of switch */ 

384 > 



385 /** blocking after enter executives of unforced state. **/ 

386 FSM.EXIT ( 1 , cp_f ddi.sink) 



387 /** state (DISCARD) exit executives **/ 

388 FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec , "DISCARD") 

389 { 

390 > 



391 /** state (DISCARD) transition processing **/ 

392 FSM_INIT_C0ND (END_0F_SIH) 

393 FSM_DFLT_CGND 

394 FSM_TEST_L0GIC ("DISCARD") 

395 FSM.TRANSIT.SWITCH 

396 { 

397 FSM_CASE_TRANSIT (0, 1, statel_enter_exec , ;) 

398 FSM_CASE_TRANSIT (1, 0, state0_enter_exec , ;) 

399 > 

400 /* */ 



401 /** state (STATS) enter executives **/ 

402 FSM_STATE_ENTER_UNFORCED (1, statel.enter.exec, "STATS") 

403 { 

404 /* At end of simulation, scalar performance statistics */ 

405 /* and input parameters are written out. */ 

406 op_stat_scalar_write ("RL Throughput (bps), Priority 1", 

407 fddilpl_total_bits_a[0] / op_sim_time ()); /*20APR94*/ 
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408 op.stat.scalar.write ( M RL Throughput (bps), Priority 2", 

409 Iddilpl.total.bits.aCl] / op.sim.time ()); 

410 op.stat.scalar.write ( M RL Throughput (bps), Priority 3 M , 

411 lddilpl_total_bits_aC2] / op.sim.time ()); 

412 op.stat.scalar.write ( M RL Throughput (bps), Priority 4", 

413 fddilpl_total_bits^a[3] / op.sim.time ()); 

414 op.stat.scalar.write ( M RL Throughput (bps), Priority 5 M , 

415 lddilpl_total_bits_aC4] / op.sim.time ()); 

416 op.stat.scalar.write ( M RL Throughput (bps), Priority 6", 

417 lddilpl.total_bits.aC5] / op.sim.time ()); 

418 op.stat.scalar.write ( M RL Throughput (bps). Priority 7 M , 

419 lddilpl.total.bits.a[6] / op.sim.time ()); 

420 op.stat.scalar.write ( M RL Throughput (bps), Priority 8 M , 

421 lddilpl_total_bits_a[7] / op.sim.time ()); 

422 op.stat.scalar.write ( M RL Throughput (bps), Asynchronous", 



423 


(Iddilpl.total.bits - lddilpl.total.bits.a[8] ) / op.sim.time 


0); 


424 


/* 


(lddilpl.total_bits.aCO] 


+ lddilpl.total_bits.aCl] + 


*/ 


425 


/* 


lddilpl_total.bits.aC2] 


+ iddilpl.total.bits. aC3] + 


*/ 


426 


/* 


lddilpl.total.bits.aC4] 


+ lddilpl.total.bits.aC5] + 


*/ 


427 


/* 


lddilpl.total_bits.aC6] 


+ Iddilpl.total.bits. aC7] ) / 


*/ 


428 


/* 


op.sim.time ()); 







429 op.stat.scalar.write ("RL Throughput (bps), Synchronous", 

430 fddilpl.total.bits_a[8] / op.sim.time ()); 

431 op.stat.scalar.write ("RL Throughput (bps), Total", 

432 lddilpl.total.bits / op.sim.time ()); /+20APR94*/ 



433 /* Only one station needs to do this */ 

434 il ( flddi.sink.scalar .write) 

435 { 

436 /* set the scalar write Hag */ 

437 fddi.sink.scalar.write = 1; 

438 op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Priority 1", 

439 lddi_sink.accum.delay.a[0) / Iddi.sink.total.pkts.aCO]); 
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440 




441 




442 




443 




444 




445 




446 




447 




448 




449 




450 




451 




452 




453 




454 




455 




456 




457 


/* 


458 


/♦ 


459 


/* 


460 


/* 


461 


/* 


462 


/* 


463 


/* 


464 


/* 


465 




466 




467 




468 





op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Priority 2", 
lddi.sink_accum_delay.aCl] / lddi.sink_total_pkts.aCl] ) ; 

op.stat.scalar. write ("Mean End-to-End Delay-0 (sec.), Priority 3", 
lddi_sink_accum_delay_aC2] / lddi_sink_total_pkts_aC2] ) ; 

op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Priority 4", 
iddi_sink_accum_delay_aC3] / lddi_sink_total_pkts_aC3] ) ; 

op.stat.scalar. write ("Mean End-to-End Delay-0 (sec.), Priority 5", 
lddi_sink_accum_delay_aC4] / lddi_sink_total_pkts_aC4] ) ; 

op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Priority 6", 
lddi.sink_accum_delay.aC6] / lddi.sink_total_pkts.aC5] ) ; 

op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Priority 7", 
lddi_sink_accum_delay_aC6] / lddi_sink_total_pkts_aC6] ) ; 

op.stat.scalar. write ("Mean End-to-End Delay-0 (sec.), Priority 8", 
lddi.sink_accum_delay.aC7] / lddi_sink_total_pkts_aC7] ) ; 

op.stat.scalar.write ("Mean End-to-End Delay-0 (sec.), Asynchronous" 9 
(Iddi.sink.accum.delay - lddi_sink_accum_delay_aC8] ) / 
(iddi.sink_total.pkts - iddi.sink.total.pkts.a[8] )) ; 

(lddi.sink_accum_delay.aCO] + lddi.sink_accum_delay.aCl] + */ 

lddi_sink_accum_delay_aC2] + iddi.sink.accum.delay.a[3] + */ 

lddi.sink.accum.delay.a[4] + iddi.sink_accum_delay.aC5] + */ 

lddi_sink_accum_delay_aC6] ♦ lddi_sink_accum_delay_aC7] ) / */ 

(Iddi.sink.total.pkts.aCO] + Iddi.sink.total.pkts.aCl] + */ 

iddi_sink_total_pkts_aC2] + iddi_sink_total_pkts_aC3] + */ 

lddi_sink_total_pkts_aC4] + iddi_sink_total_pkts_aC5] + */ 

lddi_sink_total_pkts_aC6] + iddi.sink.total.pkts.a[7] )) ; */ 



op_stat_scalar_write ("Mean End-to-End Delay-0 (sec.), Synchronous", 
lddi.sink_accum_delay.aC8] / lddi_sink_total_pkts_aC8] ) ; 

op.stat.scalar. write ("Mean End-to-End Delay-0 (sec.), Total", 
Iddi.sink.accum.delay / lddi.sink_total.pkts) ; 



469 op.stat.scalar. write ("Throughput-0 (bps), Priority 1", 

470 lddi.sink_total_bits.aCO] / op.sim.time ()); 



471 op.stat.scalar.write ("Throughput-0 (bps), Priority 2", 

472 lddi_sink.total_bits.a[l] / op.sim.time ()); 



473 op.stat.scalar.write ( "Throughput -0 (bps), Priority 3", 

474 lddi_sink_total_bits.a[2] / op.sim.time ()); 



475 op.stat.scalar.write ("Throughput-0 (bps), Priority 4", 
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476 



477 

478 

479 

480 

481 

482 

483 

484 

485 

486 



487 

488 

489 

490 

491 



492 

493 

494 

495 



496 

497 

498 

499 

500 



501 

502 

503 

504 

505 

506 

507 



lddi_sink_total_bits_aC3] / op.sim.time ()); 

op.stat.scalar.write ("Throughput-0 (bps), Priority 5", 
lddi_sink_total_bits_aC4] / op.sim.time ()); 



op_stat_sc2dax_write ("Throughput-0 
lddi_sink_total_bits_aC5] / 



(bps), Priority 6", 
op.sim.time ()); 



op_stat_scal 2 Lr_write ("Throughput-0 
lddi_sink_total_bits_aC6] / 



(bps), Priority 7", 
op.sim.time ()); 



op.stat .scalar. write ("Throughput-0 
lddi_sink.total.bits.aC7] / 



(bps), Priority 8 ", 
op.sim.time ()); 



op.stat. scalar. write ( M Throughput -0 (bps) , Asynchronous", 
(lddi.sink_total.bits - lddi_sink_total_bits_a[8] ) / op.sim.time ()); 



/* 


(lddi.sink.total_bits.aCO] 


+ 


/* 


lddi_sink_tot2il_bits_aC2] 


+ 


/* 


lddi_sink_tot 2 il_bits_aC 4 ] 


+ 


/* 


lddi.sink_tot2d.bits.aC6] 


+ 


/* 


op.sim.time ()); 





lddi_sink_total_bits_a[l] + */ 
lddi.sink.totaT.bits.aC 3 ] + */ 
lddi.sink_total_bits.aC 5 ] + */ 
lddi.sink_tot 2 d.bits.aC 7 ]) / */ 

*/ 



op.stat.scalax.write ("Throughput-0 (bps) , Synchronous", 
lddi.sink_tot2Ll.bits.aC8] / op.sim.time ()); 

op.stat.scal2ir. write ( "Throughput -0 (bps), Total", 
lddi.sink_total.bits / op.sim.time ()); 



op.stat.scalar.write ("Peak End-to-End Delay-0 (sec.), Priority 1", 
lddi.sink_peak_delay.aCO] ) ; 



op.stat.scal 2 LT_ write ("Peak End-to-End Delay-0 (sec.), Priority 2", 
lddi.sink_peak_delay.aCl] ) ; 

op.stat.scalax.write ("Peak End-to-End Delay-0 (sec.), Priority 3", 
lddi_sink_peak.delay.aC2] ) ; 



op_stat.scal2ir_ write ("Pe2Lk End-to-End Delay-0 (sec.), 
lddi_sink.peak.delay.aC3] ) ; 

op.stat.scalax.write ("Peak End-to-End Delay-0 (sec.), 
lddi_sink_peak.delay.aC4] ) ; 

op.stat.scalax.write ("Peak End-to-End Delay-0 (sec.), 
lddi.sink_peak.delay.aC5] ) ; 

op.stat.scalax.write ("Peak End-to-End Delay-0 (sec.), 



Priority 4", 
Priority 5", 
Priority 6", 
Priority 7", 
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508 



lddi_sink_peak_delay_a[6] ) ; 



509 

510 



op.stat.scalar. write ("Peak End-to-End Delay-0 (sec.), Priority 8", 
lddi_sink_peak_delay_a[7] ) ; 



511 

512 



op.stat.scalar.write ("Peak End-to-End Delay-0 (sec.), Synchronous", 
lddi_sink_peak_delay_a[8] ) ; 



513 

514 



op.stat.scalar.write ("Peak End-to-End Delay-0 (sec.), Overall", 
Iddi.sink.peak.delay) ; 



515 /* Write the TTRT value lor ring 0. This preserves */ 

516 /* the old behavior lor single-ring simulations. */ 

517 op.stat.scalar.write ("TTRT (sec.) - Ring 0", 

518 Iddi.t.opr [0]); 

519 /* 12JAN94: obtain ollered load inlormation Irom the Environment */ 

520 /* lile; this will be used to provide abscissa inlormation that */ 

521 /* cam be plotted in the Analysis Editor (see "Iddi.sink" STATS */ 

522 /* state. To the user: it's your job to keep these current in */ 

523 /* the Environment File. -Nix */ 

524 op_ima_sim_attr_get (0PC_IMA_D0UBLE, "total_ollered_load_0" , tOllered.Load) ; 

525 op.ima.sim_attr.get (OPC.IMA.DOUBLE, "asynch.oll ered.load.O" , tAsynch.Ollered.LosLd) ; 



526 /* 12JAN94: write the total ollered load lor this run */ 

527 op.stat. scalar. write ("Total Ollered Load-0 (Mbps)", 

528 Ollered.Load) ; 

529 op.stat. scalar. write ("Asynchronous Ollered Load-0 (Mbps)", 

530 Asynch.011ered.Load) ; 



533 /** blocking alter enter executives ol unlorced state. **/ 

534 FSM.EXIT (3 , cp.lddi.sink) 



535 /** state (STATS) exit executives **/ 

536 FSM.STATE.EXIT.UNFORCED (1, statel.exit.exec , "STATS") 

537 { 

538 > 



539 /** state (STATS) transition processing **/ 

540 FSM.TRANSIT.MISSING ("STATS") 

541 /* */ 



531 > 

532 > 
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542 /** state (INIT) enter executives **/ 

543 FSM.STATE.ENTER.FORCED (2, state2.enter.exec, M INIT M ) 

544 { 

545 /* get the gshandles of the global statistic to be obtained */ 

546 /* 20JAN94: set array format */ 



547 thru.gshandle_a[0] 

548 thru_gshandle_a[l] 

549 thru.gshandle.a[2] 

550 thru.gshandle.a[3] 

551 thru.gshandle.a[4] 

552 thru_gshandle_a[5] 

553 thru.gshandle_a[6] 

554 thru.gshandle_a[7] 
655 thru.gshandle_a[8] 

556 thru_gshandle_a[9] 

557 thru.gshandle 



op.stat.global.reg 
op.s t at .global.r eg 
op.stat.global.reg 
op.stat.global.reg 
op.stat_globsl.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 



("pri 1 throughput-0 (bps)") 
("pri 2 throughput-0 (bps)") 
( M pri 3 throughput-0 (bps)") 
("pri 4 throughput-0 (bps)") 
("pri 5 throughput-0 (bps)") 
("pri 6 throughput-0 (bps)") 
("pri 7 throughput-0 (bps)") 
("pri 8 throughput -0 (bps)") 
("synch throughput-0 (bps)") 
("async throughput-0 (bps)") 
("total throughput-0 (bps)") 



558 m.delay.gshandle.aCO] 

559 m_delay_gshandle_a[l] 

560 m_delay_gshandle_a[2] 

561 m_delay_gshandle_a[3] 

562 m_delay_gshandle_a[4] 

563 m.delay_gshandle_a[5] 

564 m_delay_gshandle.a[6] 

565 m_delay_gshandle_a[7] 

566 m_delay_gshandle_a[8] 

567 m_delay_gshandle_a[9] 

568 m.delay.gshandle 



op.stat.global.reg ("pri 1 
op_stat_global_reg ("pri 2 
op.stat.global.reg ("pri 3 
op.stat.global.reg ("pri 4 
op.stat.global.reg ("pri 5 
op.stat.global.reg ("pri 6 
op.stat.global.reg ("pri 7 
op_stat.globsl._reg ("pri 8 
op.stat.global.reg ("synch 
op.stat.global.reg ("async 
op.stat.global.reg ("total 



mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 
mean delay-0 



(sec.)") 
(sec.)") 
(sec. )") 
(sec.)") 
(sec.)") 
(sec. )") 
(sec. )") 
(sec.)") 
(sec.)") 
(sec. )") 
(sec. )") 



569 ete.delay.gshandle.a[0] 

570 ete.delay.gshandle.a[l] 

571 ete_delay_gshandle_a[2] 

572 ete_delay_gshandle_a[3] 

573 ete_delay_gshandle_a[4] 

574 ete_delay_gshandle_a[5] 

575 ete_delay_gshandle_a[6] 

576 ete_delay_gshandle_a[7] 

577 ete_delay_gshandle_a[8] 

578 ete.delay.gshandle 



op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 



("pri 1 end-to-end 
("pri 2 end-to-end 
("pri 3 end-to-end 
("pri 4 end-to-end 
("pri 5 end-to-end 
("pri 6 end-to-end 
("pri 7 end-to-end 
("pri 8 end-to-end 
("synch end-to-end 
("total end-to-end 



delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 
delay-0 (sec.)") 



579 t_gshandle_a[0] 

580 t_gshandle_a[l] 

581 t_gshandle_a[2] 

582 t_gshandle_a[3] 

583 t_gshandle_a[4] 

584 t_gshandle_a[5] 

585 t_gshandle_a[6] 

586 t_gshandle_a[7] 

587 t_gshandle_a[8] 



= op.stat.global.reg 
= op.stat.global.reg 
= op.stat.global.reg 
= op.stat.global.reg 
= op_stat_global_reg 
= op.stat.global.reg 
= op.stat.global.reg 
= op.stat.global.reg 
= op.stat.global.reg 



("pri 1 RL throughput 
("pri 2 RL throughput 
("pri 3 RL throughput 
("pri 4 RL throughput 
("pri 5 RL throughput 
("pri 6 RL throughput 
("pri 7 RL throughput 
("pri 8 RL throughput 
("synch RL throughput 



(bps)"); / *20APR94*/ 
(bps)"); 

(bps)"); 

(bps)"); 

(bps)"); 

(bps)"); 

(bps)"); 

(bps)") ; 

(bps)"); 
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588 t_gshandle_a[9] = op.stat_global.reg ("async RL throughput (bps)"); 

589 t.gshandle = op.stat_global.reg ("total RL throughput (bps)"); 



590 > 



591 /♦♦ state (INIT) exit executives ♦♦/ 

592 FSH.STATE.EXIT.FORCED (2, state2.exit.exec, "INIT") 

593 { 

594 > 



595 /♦♦ state (INIT) transition processing *♦/ 

596 FSH.INIT.COND (END.OF.SIH) 

597 FSH.DFLT.COND 

598 FSM.TEST.LOGIC ("INIT") 

599 FSH.TRANSIT.SWITCH 

600 { 

601 FSM.CASE.TRANSIT (0, 1, statel.enter.exec , ;) 

602 FSM.CASE.TRANSIT (1, 0, stateO.enter.exec , ;) 

603 > 

604 /♦ ♦/ 



605 > 



606 FSM.EXIT (2 , cp.lddi.sink) 

607 > 



608 void 

609 cp.fddi.sink.svar (prs.ptr ( var.name, var.p.ptr) 

610 cp.lddi.sink.state ♦prs.ptr; 

611 char ♦var.name, ♦♦var.p.ptr; 

612 { 

613 FIN (cp.lddi_sink.svar (prs.ptr)) 

614 ♦var.p.ptr = VOS.NIL; 

615 il (Vos.String.Equal ("thru.gshandle" , var.name)) 

616 ♦var.p.ptr = (char ♦) (&prs_ptr->sv_thru_gshandle) ; 

617 il (Vos.String.Equal ("m.delay.gshandle" , var.name)) 

618 ♦var.p.ptr = (char ♦) (Aprs.ptr->sv_m_delay_gshandle) ; 

619 it (Vos.String.Equal ("ete.delay.gshandle" , var.name)) 
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620 *var_p_ptr = (char *) (&prs_ptr->sv_ete_delay_gshandle) ; 

621 if (Vos_String_Equal ( M thru_gshandle_a M , var_name)) 

622 *var_p_ptr = (char *) (prs_ptr->sv_thru_gshandle_a) ; 

623 it (Vos_String_Equal ("m_delay_gshandle_a" , var_name)) 

624 *var_p_ptr = (char *) (prs_ptr->sv_m_delay_gshandle_a) ; 

625 i f (Vos_String_Equal ("ete_delay_gshandle_a" , var.name)) 

626 *var_p_ptr = (char *) (prs_ptr->sv_ete_delay_gshandle_a) ; 

627 it (Vos_String_Equal ("t.gshandle” , var.name)) 

628 *var_p_ptr = (char *) (&prs_ptr->sv_t_gshandle) ; 

629 it (Vos_String_Equal ("t_gshandle_a M , var.name)) 

630 *var_p_ptr = (char *) (prs_ptr->sv_t_gshandle_a) ; 

631 if (Vos_String_Equal ("my.id" , var.name)) 

632 *var_p_ptr = (char *) (&prs_ptr->sv_my_id) ; 

633 FOOT; 

634 > 



635 void 

636 cp_fddi_sink_diag () 

637 { 

638 double delay, creat.time; 

639 Packet* pkptr; 

640 Packet* pkptrl ; /*5APR94*/ 

641 int src_addr, my_addr; 

642 int dest_addr;/*14APR94*/ 

643 Ici* from_mac_ici_ptr ; 

644 double fddi_sink_ttrt ; 

645 int xmit_subq_ index ; / *5APR94*/ 

646 int load_balance_code; /*6APR94*/ 

647 int i,subq_no; /*25APR94*/ 

648 int index; /*10MAY94 */ 



649 FIN (cp_fddi_sink_diag ()) 



650 FOOT; 

651 > 



652 void 

653 cp_fddi_sink_terminate () 

654 { 

655 double delay, creat_time; 

656 Packet* pkptr; 

657 Packet* pkptrl ; /*5APR94*/ 
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658 int src_addr, my.addr; 

659 int dest_addr;/*14APR94*/ 

660 Ici* Irom_mac_ici_ptr ; 

661 double lddi_sink_ttrt ; 

662 int xmit_subq_index;/*5APR94*/ 

663 int load_balance_code; /*6APR94*/ 

664 int i,subq_no; /*25APR94*/ 

665 int index; /♦10MAY94 */ 



666 FIN (cp_iddi_sink_terminate ()) 



667 FOOT; 

668 > 



669 Compcode 

670 cp_lddi_sink_init (pr_state_pptr) 

671 cp_iddi_sink_state **pr_state_pptr ; 

672 { 

673 static VosT_Cm_0btype obtype = OPC.NIL; 

674 FIN (cp_fddi_sink_init (pr_state_pptr) ) 

675 i* (obtype == QPCJJIL) 

676 { 

677 it (Vos_Catmem_Register ("proc state vars (cp_fddi_sink) M , 

678 sizeol (cp_Iddi_sink_state) , Vos.Nop, ftobtype) == VOSC.FAILURE) 

679 FRET (OPC.COMPCODE.FAILURE) 

680 > 

681 it ((*pr_state_pptr = (cp_Iddi_sink_state*) Vos.Catmem.Alloc (obtype, 1)) == 0PC_NIL) 

682 FRET (0PC_C0MPC0DE_FAILURE) 

683 else 

684 { 

685 (*pr_state_pptr)->current_block = 4; 

686 FRET (OPCLCQMPCQDE.SUCCESS) 

687 > 

688 > 
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APPENDIX D 

SPNI SOURCE “C” CODE 

“sp_fddi_gen.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* Process model C form file: sp.fddi_gen.pr . c */ 

2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 



2 /* OPHET system definitions */ 

3 #include <opnet.h> 

4 #include "sp.fddi.gen.pr.h" 

5 FSM.EXT.DECS 



6 /* Header block */ 

7 #def ine MAC.LAYER.OUT. STREAM 0 

8 #def ine LLC.SINK.OUT.STREAM 1 /*18APR94*/ 

9 /* define possible service classes for frames */ 

10 #def ine FDDI.SVC.ASYNC 0 

11 #def ine FDDI.SVC.SYNC 1 

12 /* define token classes */ 

13 #def ine FDDI.TK.NONRESTRICTED 0 

14 #def ine FDD I _TK .RESTRICTED 1 



15 /* State variable definitions */ 

16 typedef struct 



17 { 

18 FSM.SYS.STATE 

19 Distribution* 

20 Distribution* 

21 Distribution* 

22 Distribution* 

23 Objid 

24 Objid 

25 int 

26 int 



sv.inter.dist.ptr ; 
sv.len_dist.ptr ; 
s v.dest .dist.ptr ; 
s v.pkt.prior ity.ptr ; 
sv.mac.obj id; 
sv.my.id; 
s v.low.dest.addr ; 
sv_high.de st.addr; 
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27 int 

28 int 

29 int 

30 int 

31 double 

32 double 

33 double 

34 Ici* 

35 Ici* 

36 Ici* 

37 Packet* 

38 } sp_lddi.gen.st ate; 



s v.st at ion.addr ; 
sv.src.addr ; 
sv.low.pkt .priority ; 
sv.high.pkt .priority ; 
sv.arrival.rate ; 
s v.me an.pk.l en ; 
sv.async.mix; 
sv.mac.iciptr; 
sv.mac.iciptr 1 ; 
sv.llc.ici.ptr; 
sv.pkptrl; 



39 #deline 

40 #deline 

41 #deline 

42 #deline 

43 #deline 

44 #define 

45 #deline 

46 #def ine 

47 #deline 

48 #deline 

49 #deline 

50 #deline 

51 #deline 

52 #define 

53 #deiine 

54 #deline 

55 #deline 

56 #deline 

57 #deline 

58 #define 



pr.state.ptr 


((sp.lddi.gen.state*) Siml.Mod.State.Ptr) 


inter.dist.ptr 


pr.st at e_ptr->sv. inter.dist.ptr 


len.dist.ptr 


pr.st at e_ptr->sv. len.dist.ptr 


dest.dist.ptr 


pr_state.pti->sv_dest_dist_ptr 


pkt .prior ity.ptr 


pr_state_ptr->sv.pkt.priority.ptr 


mac.ob j id 


pr_state_ptr->sv.mac.obj id 


my. id 


pr.st at e.ptr->sv.my.id 


low. dest.addr 


pr_state_ptr->sv_low_dest_addr 


high.de st. addr 


pr.st at e.ptr->sv.high.dest. addr 


st at ion.addr 


pr_state.ptr->sv.st at ion.addr 


src.addr 


pr.st at e.ptr->sv. src.addr 


low.pkt .priority 


pr.st at e.ptr->sv. low.pkt .priority 


high.pkt .priority 


pr_state.ptr->sv_high_pkt_priority 


arrival.rate 


pr.st at e_ptr-> sv.arrival.rate 


mean.pk.len 


pr.st at e_ptr->sv_mean_pk_len 


async.mix 


pr_state.ptr->sv_async.mix 


mac.iciptr 


pr.st at e_ptr->sv_mac.iciptr 


mac.iciptrl 


pr . s t at e .pt r-> s v .ma c. i c ipt r 1 


llc.ici.ptr 


pr.st at e.ptr->sv. llc.ici.ptr 


pkptrl 


pr . s t at e .pt r- > s v _pkpt r 1 



59 /* Process model interrupt handling procedure */ 



60 void 

61 sp.lddi.gen () 

62 { 

63 Packet *pkptr; 

64 int pklen; 

65 int dest.addr; 

66 int i, restricted; 

67 int pkt.prio; 



134 



68 FSM.ENTER (sp.f ddi.gen) 



69 FSM.BLOCK.SVITCH 

70 { 

71 /♦ --*/ 

72 /** state (INIT) enter executives **/ 

73 FSM.STATE.ENTER.UNFORCED (0, stateO.enter.exec, "HIT") 

74 { 

75 /* determine id of own processor to use in finding attrs */ 

76 my.id = op.id.self (); 

77 /* determine address range for uniform desination assignment */ 

78 op_ima.obj_attr.get (my.id, "low dest address", Alow.dest.addr) ; 

79 op.ima_obj_attr.get (my.id, "high dest address", Ahigh.dest.addr) ; 

80 /* determine object id of connected 'mac* layer process */ 

81 mac.objid = op.topo.assoc (my.id, 0PC.T0P0.ASS0C.0UT, 

82 OPC.OB JMTYPE.MODULE , MAC.LAYER.OUT.STREAM) ; 

83 /* determine the address assigned to it */ 

84 /* which is also the address of this station */ 

85 op.ima_obj_attr.get (mac.objid, "station.address" , Astation.addr) ; 



86 /* set up a distribution for generation of addresses */ 

87 dest.dist.ptr = op.dist.load ("unif orm.int" , low.dest.addr , 

88 high.dest.addr) ; 

89 /* added 26DEC93 */ 

90 /* determine priority range for uniform traffic generation */ 

91 op.ima_obj.attr .get (my.id, "high pkt priority", Ahigh.pkt .priority) ; 

92 op_ima.obj_attr.get (my.id, "low pkt priority", Alow.pkt .priority) ; 

93 /* set up a distribution for generation of priorities */ 

94 pkt.priority.ptr = op.dist.load ("unif orm.int" , low.pkt .priority , high.pkt .priority) ; 

95 /♦ above added 26DEC93 */ 



96 /* also determine the arrival rate for packet generation */ 

97 op.ima_obj_attr.get (my.id, "arrival rate", Aarrival.rate) ; 

98 /* determine the mix of asynchronous and synchronous */ 

99 /* traffic. This is expressed as the proportion of */ 

100 /* asynchronous traffic, i.e a value of 1.0 indicates ♦/ 

101 /* that all the produced traffic shall be asynchronous. */ 

102 op_ima.obj_attr.get (my.id, "async.mix", Aasync.mix); 

103 /* set up a distribution for arrival generations */ 

104 if (arrival.rate != 0.0) 
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105 { 

106 /* arrivals are exponentially distributed, with given mean */ 

107 inter.dist.ptr = op.dist.load ("constant", 1.0 / arrival.rate, 0.0); 

108 /* determine the distribution lor packet size */ 

109 op.ima_obj_attr.get (my.id, "mean pk length", ftmean.pk.len) ; 

110 /* set up corresponding distribution */ 

111 len.dist.ptr = op.dist.load ("constant", mean.pk.len, 0.0); 

112 /* designate the time ol first arrival */ 

113 f ddi.gen.schedule (); 

114 /* set up an interlace control information (ICI) structure */ 

115 /* to communicate parameters to the mac layer process */ 

116 /* (it is more efficient to set one up now and keep it */ 

117 /* as a state variable than to allocate one on each packet xfer) */ 

118 mac.iciptr = op.ici.create ("fddi.mac.req") ; 

119 > 

120 > 



121 /** blocking after enter executives of unforced state. **/ 

122 FSM_EXIT (1 , sp.f ddi.gen) 



123 /** state (INIT) exit executives **/ 

124 FSM_STATE_EXIT_UNF0RCED (0, stateO.exit.exec , "INIT") 

125 { 

126 > 



127 /** state (INIT) transition processing **/ 

128 FSM.TRANSIT.FORCE (1, statel_enter_exec, ;) 

129 /* */ 



130 /** state (ARRIVAL) enter executives **/ 

131 FSM_STATE_ENTER_UNFORCED (1, statel^enter.exec , "ARRIVAL") 

132 { 

133 /* This station should receive frames from the other lan as long as */ 

134 /* there are frames in the input streams addressed to this lan */ 

135 /*check if the interrupt type is stream interrupt *//*12APR94*/ 

136 if (op.intrpt.typeO == 0PC_INTRPT_STRM) 

137 { 

138 /* if it is, get the packet in the input stream causing interrupt */ 

139 pkptrl = op_pk_get(op_intrpt_strm()) ; 

140 /* get the destination address of the frame : 16APR94 */ 

141 op.pk_nfd.get (pkptrl, "dest.addr" , ftdest.addr) ; 
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142 /* check if this frame is for the remote bridge station(bridge in surface lan) */ 

143 if (dest.addr == station. addr) 

144 /* if it is, send the packet to llc.sink directly */ 

145 /* in order to prevent overhead of mac access */ 

146 op_pk_send(pkptrl , LLC.SINK.OUT.STREAM) ;/*19APR94*/ 

147 else 

148 /♦ this packet is to send to mac */ 

149 { 

150 /* determine the source address of the frame */ 

151 op.pk.nfd.get(pkptrl, "src.addr”, Jtsrc.addr) ; 

152 /* set up an ICI structure to communicate parameters to */ 

153 /* MAC layer process */ 

154 mac. iciptrl = op_ici_create( M f ddi.mac.req*') ; 

155 /* place the original source address into the ICI *//* 16APR94 */ 

156 /* "fddi.mac.req" is modified so that it contains the original */ 

157 /* source address from the local lan(collection platform) */ 

158 op.ici.attr.set (mac.iciptrl, "src.addr”, src.addr) ; 

159 /* place the destination address into the ICI */ /*12APR94*/ 

160 op.ici_attr.set (mac.iciptrl , M dest_addr M , dest.addr) ; 

161 /* assign the service class and requested token class */ 

162 /* At this moment the frames coming from the remote lan are assumed */ 

163 /* to have the same priority as synchronous frames in order not to accumulate */ 

164 /* packets on the bridge station mac and instead to deliver their destinations */ 

165 /* as soon as possible */ 

166 op.pk.nfd.set(pkptrl, M pri M , 8); 

167 op.ici_attr.set (mac. iciptrl, "svc.class" , FDDI.SVC.SYNC) ; 

168 op.ici.attr.set (mac. iciptrl, M pri M , 8); 

169 op.ici.attr.set (mac. iciptrl, "tk.class" , FDDI.TK.NONRESTRICTED) ; 

170 /* send the packet coupled with the ICI */ 

171 op.ici.install(mac.iciptrl) ; 

172 op.pk.send(pkptrl , MAC.LAYER.OUT.STREAM) ; 

173 > 

174 > 

175 /* otherwise, generate the frame */ 

176 else 

177 { 

178 /* determine the length of the packet to be generated */ 

179 pklen = op.dist.outcome (len.dist.ptr) ; 

180 /* determine the destination */ 

181 /* dont allow this station's address as a possible outcome */ 

182 gen.packet: 

183 dest.addr = op.dist.outcome (dest.dist.ptr) ; 

184 if (dest.addr != -1 kk dest.addr == station.addr) 

185 goto gen.packet; 

186 /* 26DEC94 k 29JAN94: determine its priority ♦/ 

187 pkt.prio = op.dist.outcome (pkt.priority.ptr) ; 

188 /* create a packet to send to mac */ 

189 pkptr = op.pk.create.fmt ('‘fddi.llc.fr") ; 
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190 /* assign its overall size. */ 

192 op.pk_total_size.set (pkptr, pklen) ; 

193 /* assign the time of creation */ 

194 op.pk.nfd.set (pkptr, "cr.time", op.sim.time ()); 

195 /* place the destination address into the ICI */ 

196 /* (the protocol.type field will default) */ 

197 op.ici.attr.set (mac.iciptr, "dest.addr", dest.addr) ; 

198 /* place the source address into the ICI *//* 17APR94*/ 

199 op.ici.attr.set (mac.iciptr, "src.addr", station.addr) ; 

200 /* assign the priority, and requested token class */ 

201 /* also assign the service class; 29JAN94: the fddi_llc.fr */ 

202 /* format is modified to include a "pri M field. */ 

203 if (op.dist.unif orm (1.0) <= async.mix) 

204 { 

205 'op.pk_nfd.set (pkptr, M pri M , pkt.prio) ; /* 29JAN94 +/ 

206 op.ici.attr.set (mac.iciptr, "svc.class", FDDI.SVC.ASYNC) ; 

207 op.ici.attr.set (mac.iciptr, "pri" , pkt.prio); /* 29JAN94 ♦/ 

208 > 

209 else{ 

210 op.pk_nfd.set (pkptr, M pri M , 8); /* 29JAK94 */ 

211 op.ici.attr.set (mac.iciptr, "svc.class", FDDI.SVC.SYNC) ; 

212 op.ici.attr.set (mac.iciptr, "pri M , 8); /* 29JAN94 */ 

213 > 

214 /* Request only nonrestricted tokens after transmission */ 

215 op.ici.attr.set (mac.iciptr, M tk_class M , FDDI.TK.NONRESTRICTED) ; 

216 

217 /* Having determined priority, assign it; 26DEC93 */ 

218 /* op.ici.attr.set (mac.iciptr, "pri M , pkt.prio); */ 

219 /♦ send the packet coupled with the ICI */ 

220 op.ici.install (mac.iciptr); 

221 /+ check if destination address is in the local lan(collection platform)*/ 

222 if(dest_addr <= 9) 

223 /* if it is, this packet is to send llc.sink directly */ 

224 op.pk.send (pkptr, LLC.SINK.OUT.STREAM) ; /*18APR94*/ 

225 else 

226 /* if not, the packet is destined for remote lan (surface stations)*/ 

227 op.pk.send (pkptr, HAC.LAYER.OUT.STREAM) ; 

228 /* schedule the next arrival */ 

229 fddi.gen.schedule (); 

230 > 

231 > 



138 



232 /♦♦ blocking alter enter executives of unforced state. ♦♦/ 

233 FSM.EXIT (3 , sp.fddi.gen) 



234 /♦♦ state (ARRIVAL) exit executives ♦♦/ 

235 FSM.STATE.EXIT.UNFORCED (1, statel.exit.exec, "ARRIVAL") 

236 { 

237 > 



238 /♦♦ state (ARRIVAL) transition processing ♦ ♦/ 

239 FSM.TRANSIT.FORCE (1, state l.enter.exec, ;) 

240 /♦ ♦/ 



241 > 



242 FSM.EXIT (0 , sp.fddi.gen) 

243 > 



244 void 

245 sp.lddi_gen.svax (prs.ptr , var.name, vax.p.ptr) 

246 sp.lddi.gen.state ♦prs.ptr; 

247 chair * var.name, ♦♦var.p.ptr; 

248 { 

249 FIN (sp.lddi_gen.svar (prs.ptr)) 

250 ♦vax.p.ptr = VOS. NIL; 

251 il (Vos.String.Equal ("inter.dist.ptr" , var.name)) 

252 ♦vax.p.ptr = (chair ♦ ) (ftprs.ptr->sv.inter_dist_ptr) ; 

253 il (Vos.String.Equal ("len.dist.ptr" , var.name)) 

254 ♦vax.p.ptr = (char ♦ ) (ftprs_ptr->sv. len.dist.ptr) ; 

255 il (Vos.String.Equal ("dest.dist.ptr" , var.name)) 

256 ♦vax.p.ptr = (char ♦) (&prs_ptr->sv_dest_dist.ptr) ; 

257 il (Vos_String.Equal ("pkt.priority.ptr" , var.name)) 

258 ♦vax.p.ptr = (char ♦) (&prs_ptr->sv_pkt_priority.ptr) ; 

259 il (Vos.String.Equal ("mac.objid" , var.name)) 

260 ♦vax.p.ptr = (char ♦) (ftprs.ptr->sv.mac.obj id) ; 

261 il (Vos.String.Equal ("my.id" , var.name)) 

262 ♦vax.p.ptr = (char ♦) (ftprs.ptr->sv_my.id) ; 

263 il (Vos.String.Equal ("low.dest.axidr" , var.name)) 

264 ♦vax.p.ptr = (char ♦) (fcprs_ptr->sv_low_dest_addr) ; 

265 il (Vos.String.Equal ("high.dest.addr" , var.name)) 

266 ♦vax.p.ptr = (char ♦) (&prs_ptr->sv_high_dest_axidr) ; 

267 il (Vos.String.Equal ("station.addr" , var.name)) 



139 



268 *var_p_ptr = (char *) (&prs_ptr->sv_station_addr) ; 

269 if (Vos.String.Equal ("src.addr" , var.name)) 

270 *var_p_ptr = (char *) (&prs_ptr->sv_src_addr) ; 

271 it (Vos.String.Equal ("low.pkt .priority" , var.name)) 

272 *var_p_ptr = (char *) (&prs_ptr->sv_low_pkt .priority) ; 

273 it (Vos.String.Equal ("high.pkt .priority" , var.name)) 

274 *var_p_ptr = (char *) (&prs_ptr->sv_high_pkt_priority) ; 

275 it (Vos.String.Equal ("arrival.rate" , var.name)) 

276 *var_p_ptr = (char *) (fcprs_ptr->sv_arrivai_rate) ; 

277 it (Vos.String.Equal ("mean.pk.len" , var.name)) 

278 *var_p_ptr = (char *) (&prs_ptr->sv_mean_pk_len) ; 

279 it (Vos.String.Equal ("async.mix" , var.name)) 

280 *var_p_ptr = (char *) (&prs_ptr->sv_async_mix) ; 

281 it (Vos.String.Equal ("mac.iciptr" , var.name)) 

282 *var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptr) ; 

283 it (Vos.String.Equal ( "mac.iciptr 1" , var_name)) 

284 *var_p_ptr = (char *) (&prs_ptr->sv_mac_iciptrl) ; 

285 it (Vos.String.Equal ("llc.ici.ptr" , var.name)) 

286 *var_p_ptr = (char *) (&prs_ptr->sv_llc_ici_ptr) ; 

287 it (Vos.String.Equal ("pkptrl" # var.name)) 

288 *var_p_ptr = (char *) (fcprs_ptr->sv_pkptrl) ; 

289 FOOT; 

290 > 



291 void 

292 sp.fddi.gen.diag () 

293 { 

294 Packet *pkptr; 

295 int pklen; 

296 int dest.addr; 

297 int i, restricted; 

298 int pkt_prio; 

299 FI¥ (sp.fddi_gen.diag ()) 



300 FOOT; 

301 > 



302 void 

303 sp.fddi.gen.terminate () 

304 { 

305 Packet *pkptr; 

306 int pklen; 
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307 int dest_addr; 

308 int i, restricted; 

309 int pkt.prio; 

310 FIN (sp_fddi_gen_terminate ()) 



311 FOOT; 

312 > 



313 Compcode 

314 sp_fddi_gen_init (pr_state_pptr) 

315 sp_fddi_gen_state **pr_state_pptr; 

316 { 

317 static VosT_Cm_0btype obtype = 0PC_NIL; 

318 FIN (sp_fddi_gen_init (pr_state_pptr) ) 

319 if (obtype == OPC.NIL) 

320 { 

321 if (Vos_Catmem_Register ("proc state vars (sp_fddi_gen) M , 

322 sizeol (sp_fddi_gen_state) , Vos_Nop, ftobtype) == V0SC_FAILURE) 

323 FRET (0PC_C0MPC0DE_FAILURE) 

324 > 

325 if ((*pr_state_pptr = (sp_fddi_gen_state*) Vos_Catmem_Alloc (obtype, 1)) == 0PC.NIL) 

326 FRET (0PC_C0MPC0DE_FAILURE) 

327 else 

328 { 

329 (*pr_state_pptr)->current_block = 0; 

330 FRET (0PC_C0MPC0DE_SUCCESS) 

331 > 

332 > 



333 /* static added 2DEC93, on advice from MIL3 */ 

334 static 

335 fddi_gen_schedule () 

336 { 

337 double inter_time; 

338 /* obtain an interarrival period according to the */ 

339 /* prescribed distribution */ 

340 inter_time = op_dist_outcome (inter_dist_ptr) ; 

341 /* schedule the arrival of next generated packet */ 

342 op_intrpt_schedule_self (op_sim_time () + inter_time, 0); 

343 > 
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APPENDIX E 

SPNI MAC “C” CODE EXCERPT 

“sp_fddi_mac.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 



1 /** state (FR.REPEAT) enter executives ♦*/ 

2 FSM.STATE.ENTER.FORCED (6, state6_enter_exec, "FR.REPEAT") 

3 { 

4 /* Extract the destination address of the frame. */ 

5 op.pk.nfd.get (pkptr, "dest.addr", fcdest.addr) ; 

6 /* If the frame is for this station, make a copy */ 

7 /* of the frame's data field and forward it to */ 

8 /* the higher layer. */ 

9 /* 14APR94 : In order to send the frames which are */ 

10 /* addressed to the remote lan, check the address database */ 

11 /* of remote lan. Frames addressed to the remote lan shouldn't */ 

12 /* be repeated in the local ring — This is a simple forwarding */ 

13 /* decision algorithm, one of the bridge's function */ 

14 /* - Karayakaylar */ 

15 if ((dest.addr == my.address) I I (dest_addr <= 9)) 

16 { 

17 /* record total size of the frame (including data) */ 

18 pk_len = op_pk_total_size_get (pkptr); 

19 /* decapsulate the data contents of the frame */ 

20 /* 29JAN94: a new field, M pri M , has been added to */ 

21 /♦ the fddi_llc.fr packet format in the Parameters */ 

22 /* Editor, so that output statistics can be */ 

23 /* generated by class and priority. -Mix */ 

24 op_pk_nfd_get (pkptr, "info", ftdata.pkptr) ; 

25 op_pk_nfd_get (pkptr, "pri", fcpri.level) ; 

26 /* The source and destination address are placed in the */ 

27 /* LLC's ICI before delivering the frame's contents. */ 

28 op.ici_attr.set (to.llc_ici.ptr , "src.addr", src.addr) ; 
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29 op.ici.attr.set (to_llc.ici.ptr, "dest.addr" , dest.addr) ; 

30 op.ici. install (to_llc.ici.ptr); 

31 /* Because, as noted in the FR.RCV state, only the */ 

32 /* frame's leading edge has arrived at this time, the */ 

33 /* complete frame can only be delivered to the higher */ 

34 /* layer after the frame's transmission delay has elapsed. */ 

35 /* (since decapsulation of the frame data contents has occured, */ 

36 /* the original MAC frame length is used to calculate delay) */ 

37 tx.time = (double) pk.len / FDDI.TX.RATE; 

38 op.pk.send.delayed (data.pkptr, FDDI.LLC.STRM.OUT, tx.time); 

39 /* Mote that the standard specifies that the original ♦/ 

40 /* frame should be passed along until the originating station */ 

41 /* receives it, at which point it is stripped from the ring. */ 

42 /* However, in the simulation model, there is no interest */ 

43 /* in letting the frame continue past its destination unless */ 

44 /* group addresses are used, so that the same frame could be */ 

45 /* destined for several stations. Here the frame is stripped */ 

46 /* for efficiency as it reaches the destination; if the model */ 

47 /* is modified to include group addresses, this should be changed */ 

48 /* so that the frame is copied and the original repeated. */ 

49 /* Logic is already present for stripping the frame at the origin. */ 

50 op.pk.destroy (pkptr) ; 

51 > 

52 /* 14APR94 : the frames belong to this ring should be repeated. */ 

53 /* Thus, local traffic is constrained. — This is filtering decision */ 

54 /* One of the bridge's function - Karayakaylar */ 

55 else{ 

56 /* Repeat the original frame on the ring and account for */ 

57 /* the latency through the station and the propagation delay */ 

58 /* for a single hop. */ 

59 /* (Only the originating station can strip the frame). */ 

60 op.pk.send.delayed (pkptr, FDDI.PHY.STRM.OUT, 

61 Fddi.St.Latency + Fddi.Prop.Delay) ; 

62 > 

63 > 



64 /♦* state (FR.REPEAT) exit executives **/ 

65 FSM.STATE.EXIT.FORCED (6, state6.exit.exec, "FR.REPEAT 11 ) 

66 { 

67 > 
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APPENDIX F 

SPNI SINK “C” CODE 

“sp_fddi_sink.pr.c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* Process model C form file: sp.fddi_sink.pr . c */ 

2 /* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 



3 /* OPNET system definitions */ 

4 #include <opnet.h> 

5 #include "sp.fddi_sink.pr .h M 

6 FSM.EXT.DECS 



7 /* Header block */ 

8 /* Globals */ 

9 /* positions 0-7 represent the asynch priority levels, PRIORITIES + 1 */ 

10 /* represents synch traffic, and grand totals axe as given in the original. 

11 #def ine PRIORITIES 8 /* 20JAN94 */ 

12 #def ine XMITTER.BUSY 0 /*10MAY94 */ 



13 static /* 05FEB94 */ 

14 double fddi2_sink_accum_delay = 0.0; 

15 static /* 05FEB94 */ 

16 double fddi2_sink_accum_delay_a[PRI0RITIES + 1] = {0 .0 ,0 . 0,0 . 0 ,0 .0 ,0. 0 ,0. 0 ,0 .0 ,0 . 0,0 . 0>; 

17 static /* 05FEB94 */ 

18 int fddi2_sink.total.pkts = 0; 

19 static /* 05FEB94 */ 

20 int fddi2_sink_total.pkts_a [PRIORITIES +1] ={0, 0, 0, 0, 0, 0, 0, 0, 0>; 

21 static /* 05FEB94 */ 

22 double fddi2.sink.total.bits = 0.0; 

23 static /* 05FEB94 */ 

24 double fddi2_sink.total.bits_a[PRI0RITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 

25 static /* 05FEB94 */ 

26 double fddi2.sink_peak.delay = 0.0; 

27 static /* 05FEB94 */ 

28 double fddi2.sink_peak.delay.a[PRI0RITIES + 2] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 

29 static /* 05FEB94 */ 

30 int fddi2_sink_scal2Lr.write = 0; 

31 static /* 05FEB94 */ 

32 int pri2.set = 20; /* 20JAN94 */ 
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33 double 



busy = 0.0; 



/* 10MAY94 */ 



34 /* Statistics used lor command link:21APR94 */ 

35 static 

36 int fddilp2_total_pkts = 0; 

37 static 

38 int fddilp2_total_pkts_a[PRI0RITIES +1] = {0, 0, 0, 0, 0, 0, 0, 0, 0>; 

39 static 

40 double fddilp2_total_bits = 0.0; 

41 static 

42 double f ddilp2_total_bits_a [PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0 

43 /* Externally defined globals. */ 

44 extern double fddi_t_opr □ ; 

45 /*12JAN94: attributes from the Environment file */ 

46 double Off ered.Load; /* 12JAN94 */ 

47 double Asynch_0f f ered.Load; /* 12JAN94 */ 

48 /* transition expressions */ 

49 #deline END_0F_SIM op.intrpt.typeO == OPC.INTRPT.ENDSIM 



50 /* State variable definitions */ 

51 typedef struct 

52 { 

53 FSM_SYS_STATE 



54 Gshandle 

55 Gshandle 

56 Gshandle 

57 Gshandle 

58 Gshandle 

59 Gshandle 

60 Gshandle 

61 Gshandle 

62 Objid 

63 > sp_fddi_sink_state; 



s v_ t hru2 _g s hand 1 e ; 
s v_m2_delay_gshandle ; 
s v_ete2_delay_gshandle ; 
sv_thru2_gshandle_a[10] ; 
sv_m2_delay_gshandle_a[l0] ; 
sv_ete2_delay_gshandle_a[9] ; 
sv_t2_gshandle; 
sv_t2_gshandle_a[10] ; 
sv_my_id; 



64 #define 

65 #define 

66 #define 

67 #define 

68 #define 

69 #define 

70 #define 

71 #def ine 

72 #def ine 

73 #define 



pr_state_ptr 

thru2_gshandle 

m2_delay_gshandle 

ete2_delay_gshandle 

t hru2_g s handl e _ a 

m2_delay_gshandle_a 

ete2_delay_gshandle_a 

t2_gshandle 

t2_gshandle_a 

my_id 



((sp_fddi_sink_state*) SimI_Mod_State_Ptr) 

pr.stat e_ptr->sv_thru2_gshandle 

pr_state_ptr->sv_m2_delay_gshandle 

pr_state_ptr->sv_ete2_delay_gshandle 

pr_state_ptr->sv_thru2_gshandle_a 

pr_state_ptr->sv_m2_delay_gshandle_a 

pr_state_ptr->sv_ete2_delay_gshandle_a 

pr_state_ptr->sv_t2_gshandle 

pr_state_ptr->sv_t2_gshandle_a 

pr_state_ptr->sv_my_id 
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74 /* Process model interrupt handling procedure */ 



75 void 

76 sp_fddi_sink () 

77 { 

78 double delay, creat_time; 

79 Packet* pkptr; 

80 Packet* pkptrl ; /*5APR94*/ 

81 int src.addr, my_addr; 

82 int dest_addr ;/*14APR94*/ 

83 Ici* from_mac_ici_ptr; 

84 double fddi_sink_ttrt ; 



85 FSM.EflTER (sp_fddi_sink) 

86 FSM.BLOCK.SWITCH 

87 { 

88 /* */ 

89 /** state (DISCARD) enter executives **/ 

90 FSM.STATE.ENTER.UNFORCED (0, stateO_enter_exec , "DISCARD*') 

91 { 

92 /* determine the type of interrupt */ 

93 switch(op_intrpt_type()) 

94 { 

95 /* check if transmitter is busy */ 

96 case OPC.INTRPT.STAT: 

97 { 

98 busy = op_stat_local_read (XMITTER_BUSY) ; 

99 break; 

100 > 

101 /* check if a packet has arrived */ 

102 case OPC_INTRPT_STRM : 

103 { 

104 /* get the packet and the interface control info */ 

105 pkptr = op_pk_get (op_intrpt_strm ()); 

106 from_mac_ici_ptr = op_intrpt_ici (); 

107 /* 20JAN94: get the packet's priority level, which */ 

108 /* will be used to index arrays of thruput and delay */ 

109 /* computations. */ 

110 /* pri2_set = op_pk_priority_get (pkptr); doesn't work here */ 

111 op_pk_nfd_get (pkptr, "pri", Apri2_set); /* 29JAN94 */ 

112 /* determine the time of creation of the packet */ 
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113 op_pk_nfd_get (pkptr, M cr_time ,, > &creat_time) ; 

114 /* determine the dest address of the packet */ /*18APR94*/ 

115 op_pk_nfd_get (pkptr, "dest_addr M , Adest_addr) ; 

116 /* 7APR94: determine id of own processor to use in finding */ 

117 /* station address of the bridge node */ 

118 my_id = op_id_self () ; 

119 /* 14APR94 : also get my own address */ 

120 op_ima_obj_attr_get ( my.id, "station^address" , Jtmy_addr) ; 

121 /* destroy the packet */ 

122 /* op_pk_destroy (pkptr) ; */ 

123 /* 03FEB94: rather, enqueue the packet. This will be the */ 

124 /* first step toward developing a LAN bridging structure. */ 

125 /* -Nix */ 

126 /* op_subq_pk_insert (pri_set, pkptr, 0PC_QP0S_TAIL) ; */ 

127 /* 14APR94: check the frame passed to "lie" is destined for */ 

128 /* this station. If it is destroy the packet; if not, allocate the packets */ 

129 /* to the command link transmitter since they are destined for the remote lan */ 

130 /* -Karayakaylar */ 

131 /* determine the packets coming from surface stations, this will */ 

132 /* be counted for local traffic */ 

133 /* 9(nine) is model specific, this is the M station_number M of */ 

134 /* collection platform bridge station */ 

135 if ((dest_addr == my_addr)&&(src_addr >9)) 

136 { 

137 /* add in its size */ 

138 fddi2_sink_total_bits += op_pk_total_size_get (pkptr); 

139 fddi2_sink_total_bits_a[pri2_set] += op_pk_total_ size ..get (pkptr); /* 20JAN-20APR94 * 

140 /* accumulate delays */ 

141 delay = op_sim_time () - creat_time; 

142 fddi2_sink_accum_delay += delay; 

143 fddi2_sink_accum_delay_a[pri2_set] += delay; /* 20JAN-20APR94 */ 

144 /* keep track of peak delay value */ 

145 if (delay > fddi2_sink_peak_delay) 

146 fddi2_sink_peak_delay = delay; 

147 /* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 

148 if (delay > fddi2_sink_peak_delay_a[pri2_set] ) 

149 fddi2_sink_peak_delay_a[pri2_set] = delay; 

150 op_pk_destroy (pkptr) ; 

151 /* increment packet counter; 20JAN94 */ 

152 fddi2_sink_total_pkts++; 

153 f ddi2_sink_total_pkts_a[pri2_set]++ ; 
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154 /* i f a multiple of 25 packets is reached, update stats */ 

155 /* 03FEB94: [0]->[7] represent asynch priorities l->8, */ 

156 /* respectively; [8] represents synchronous traffic, */ 

157 /* and [9] represents overall asynchronous traffic. -Nix */ 

158 if (fddi2_sink.total.pkts % 25 == 0) 

159 { 

160 op.stat.globsLl.write (thru2_gshandle , 

161 fddi2.sink_total.bits / op.sim.time ()); 



162 op.stat.globsLl.write (thru2_gshandle_a Cpri2.se t] # 

163 fddi2_sink_totSLl_bits_aC0] / op_sim_time()) ; 

164 op_stat_global_write (thru2_gshandle_a[0] , 

165 fddi2.sink_total_bits.aCl] / op.sim.timeO) ; 

166 op.stat.global.write (thru2_gshandle_a[l] , 

167 f ddi2_sink_total_bits_a[pri2_set] / op.sim.timeO) ; 

168 op.stat.global.write (thru2_gshandle_a[2] , 

169 fddi2.sink.total.bits.a[2] / op.sim.timeO); 

170 op.stat.globcLl.write (thru2_gshandle_a[3] , 

171 fddi2.sink.total.bits.a[3] / op.sim.timeO); 

172 op.stat.global.write (thru2_gshandle.a[4] , 

173 fddi2.sink.total.bits.a[4] / op.sim.timeO); 

174 op.stat.global.write (thru2_gshandle_a[5] , 

175 fddi2.sink.total_bits_a[5] / op.sim.timeO); 

176 op.stat.global.write (thru2_gshandle_a[6] , 

177 fddi2_sink_total_bits_a[6] / op.sim.timeO); 

178 op.stat.global.write (thru2_gshandle_a[7] , 

179 fddi2.sink.total.bits.a[7] / op.sim.timeO); 

180 op.stat.global.write (thru2_gshandle_a[8] , 

181 fddi2.sink.total.bits.a[8] / op.sim.timeO); 

182 



/* 30JAN94: gather all asynch stats into one overall figure */ 



(fddi2.sink.total.bits - f ddi2.sink.total.bits.a[8] ) / 
op.sim.timeO) ; 



183 

184 

185 


op_stat.j 


186 


/* 


187 


/* 


188 


/* 


189 


/* 


190 


/* 


191 


op_stat_g! 



(fddi2_sink.total.bits_a[0] + 
f ddi 2 .sink_tot 2 Ll_bits_a [2] + 
fddi2.sink.total.bits.aC4] + 
fddi2_sink.tot2Ll_bits.aC6] + 
op.sim.timeO) ; 



fddi2.sink.totaLl.bits.aCl] + */ 

fddi2.sink_totSLl_bits.aC3] + */ 

fddi2.sink.totELl_bits.aC5] + */ 

fddi2.sink.totSLl.bits.aC7]) / */ 

*/ 



192 fddi2_sink_accum.delay / fddi2.sink_total.pkts); 



193 op.stat.global.write Cm2.delay_gshandle.aC0] , 

194 fddi2.sink.accum_delay.aC0] / fddi2.sink_total.pkts.aC0] ) ; 

195 op.stat.global.write (m2_delay.gshSLndle.aCl] , 

196 fddi2.sink.accum.delay.aCl] / fddi2.sink.total.pkts.aCl]); 
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_global_write (m2_delay_gshandle_a[2] , 

fddi2_sink_accum_delay_a[2] / fddi2_sink_total_pkts_a[2] ) ; 
_global_write (m2_delay_gshandle_a[3] , 

fddi2_sink_accum_delay_a[3] / fddi2_sink_total_pkts_a[3] ) 
.global.write (m2_delay_gshandle_a[4] , 

fddi2_sink_accum_delay_a[4] / fddi2_sink_total_pkts_a[4] ) 
.global.write (m2_delay_gshandle_a[5] , 

f ddi2_sink_accum_delay_a[5] / fddi2_sink_total_pkts_a[5] ) 
.global.write (m2_delay_gshandle_a[6] , 

fddi2_sink_accum_delay_a[6] / fddi2_sink_total_pkts_a[6] ) 
.global.write (m2_delay_gshandle_a[7] t 

fddi2_sink_accum_delay_a[7] / fddi2_sink_total_pkts_a[7] ) 
.global.write (m2_delay_gshandle_a[8] , 

fddi2_sink_accum_delay_a[8] / fddi2_sink_total_pkts_a[8] ) 



(fddi2_sink_accum_delay - fddi2_sink_accum_delay_a[8] ) / 
(fddi2_sink_total_pkts - fddi2_sink_total_pkts_a[8] )) ; 



(fddi2_sink_accum_delay_a[0] + fddi2_sink_accum_delay_a[l] + */ 
fddi2_sink_accum_delay_a[2] + f ddi2_sink_accum_delay_a[3] + */ 
fddi2_sink_accum_delay_a[4] + fddi2_sink_accum_delay_a[5] + */ 
fddi2_sink_accum_delay_a[6] + fddi2_sink_accum_delay_a[7] ) / ♦/ 
(fddi2_sink_total_pkts_a[0] + fddi2_sink_total_pkts_a[l] + */ 
fddi2_sink_total_pkts_a[2] + fddi2_sink_total_pkts_a[3] + */ 
fddi2_sink_total_pkts_a[4] + fddi2_sink_total_pkts_a[5] + */ 
fddi2_sink_total_pkts_a[6] + fddi2_sink_total_pkts_a[7] )) ; */ 



224 op_stat_global_write (ete2_delay_gshandle, delay); 

225 op_stat_global_write (ete2_delay_gshandle_a[pri2_set] , delay); 

226 > 

227 }/*end of if (dest_addr==my_addr)&&(src_addr > 9) statement */ 

228 /* 20APR94: destroy the packets coming from the first lain destined */ 

229 /* for this station. These packets are not counted for local traffic. */ 

230 else if(dest_addr == my_addr) 

231 op_pk_destroy (pkptr) ; 



197 


op_stat 


198 




199 


op_stat, 


200 




201 


op.stat. 


202 




203 


op.stat. 


204 




205 


op_stat. 


206 




207 


op_stat, 


208 




209 


op.stat. 


210 




211 /♦ 


30JAN94 : 


212 


op.stat. 


213 




214 




215 


/* 


216 


/* 


217 


/* 


218 


/* 


219 


/* 


220 


/* 


221 


/* 


222 


/* 


223 /* 


also rec< 



232 /* Other frames passed to "lie" should be destined for other lan */ 

233 /* 18APR94 : allocate the packets to transmitter of command link */ 

234 else 

235 { 

236 /* add in its size */ 

237 fddilp2_total_bits += op_pk_total_size_get (pkptr); 

238 fddilp2_total_bits_a[pri2_set] += op_pk_total_size_get (pkptr); /* 20JAN-20APR94 */ 
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239 /* increment packet counter; 20APR94 */ 

240 f ddilp2_total_pkts++; 

241 f ddilp2_total_pkts_a [pri2_set] ++ ; 



242 /♦ if a multiple of 25 packets is reached, update stats */ 

243 /* [0]->[7] represent asynch priorities l->8, */ 

244 /* respectively; [8] represents synchronous traffic, */ 

245 /* and [9] represents overall asynchronous traffic. -Nix */ 

246 if (fddilp2_total_pkts •/, 25 == 0) 

247 { 

248 op_stat_global_write (t2_gshandle , 

249 fddilp2_total_bits / op.sim.time ()); 

250 op_stat_global_write (t2_gshandle_a[pri2_set] , 

251 fddilp2_total_bits_a[0] / op_sim_time() ) ; 

252 op_stat_global_write (t2_gshandle_a[0] , 

253 f ddilp2_total_bits_a[l] / op_sim_time() ) ; 

254 op_stat_global_write (t2_gshandle_a[l] , 

255 fddilp2_total_bits_a[pri2_set] / op.sim.timeO) ; 

256 op_stat_global_write (t2_gshandle_a[2] , 

257 fddilp2_total_bits_a[2] / op_sim_time() ) ; 

258 op_stat_global_ write (t2_gshandle_a[3] , 

259 fddilp2_total_bits_a[3] / op_sim_time() ) ; 

260 op_stat_global_write (t2_gshandle_a[4] , 

261 f ddilp2_total_bits_a[4] / op_sim_time() ) ; 

262 op_stat_global_urite (t2_gshandle_a[5] , 

263 f ddilp2_total_bits_a[5] / op_sim_time()) ; 

264 op_stat_global_urite (t2_gshandle_a[6] , 

265 fddilp2_total_bits_a[6] / op_sim_time() ) ; 

266 op_stat_global_write (t2_gshandle_a[7] , 

267 f ddilp2_total_bits_a[7] / op_sim_time() ) ; 

268 op_stat_global_write (t2_gshandle_a[8] , 

269 fddilp2_total_bits_a[8] / op_sim_tim#() ) ; 



270 /* gather all asynch stats into one overall figure */ 

271 op_stat_global_srit.e (t2_gshandle_a[9] , 



272 

273 



(fddilp2_total_bits - fddilp2_total_bits_a[8] ) / 
op_sim_time()) ; 



274 



/* (fddilp2_total_bits_a[0] + fddilp2_total_bits_a[l] + 



*/ 



275 


/* 


fddilp2_total_bits_a[2] 


+ fddilp2_total_bits_a[3] + 


*/ 


276 


/* 


fddilp2_total_bits_a[4] 


+ fddilp2_total_bits_a[5] + 


*/ 


277 


/* 


fddilp2_total_bits_a[6] 


+ fddilp2_total_bits_a[7] ) / 


*/ 


278 


/* 


op_sim_time()) ; 







279 > 



280 /* 21APR94: allocate packets to the command link transmitter */ 
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281 op.subq.pk.insert (0 , pkptr, OPC.QPOS.TAIL) ; 

282 /* check if this subqueue is empty and transmitter is not busy */ 

283 it (( ! op.subq.empty(O) )kt(busy == 0.0)) 

284 { 

285 /^access the first packet in the subqueue */ 

286 pkptrl = op.subq.pk .remove (0, OPC.QPOS.HEAD) ; 

287 /* forward it to the. transmitter of command link */ 

288 op.pk.send (pkptrl, 0); 

289 > 

290 }/* end of else */ 

291 break; 

292 }/* end of case OPC.INTRPT.STRM statement */ 

293 }/* end of switch */ 



294 > 



295 /** blocking after enter executives of unforced state. **/ 

296 FSM.EXIT ( 1 , sp.fddi.sink) 



297 /** state (DISCARD) exit executives **/ 

298 FSM.STATE.EXIT.UNFORCED (0, stateO.exit.exec , "DISCARD") 

299 { 

300 > 



301 /** state (DISCARD) transition processing **/ 

302 FSM.INIT.C0ND (END.0F.SIM) 

303 FSM_DFLT_C0ND 

304 FSM.TEST.L0GIC ("DISCARD* 1 ) 

305 FSM.TRANSIT.SWITCH 

306 { 

307 FSM.CASE.TRANSIT (0, 1, statel.enter.exec, ;) 

308 FSM.CASE.TRANSIT (1, 0, stateO.enter.exec, ;) 

309 > 

310 /♦ */ 



311 /** state (STATS) enter executives **/ 

312 FSM.STATE.ENTER.UNFORCED (1, statel.enter.exec, **STATS") 

313 { 

314 /* At end of simulation, scalar performance statistics */ 

315 /* and input parameters axe written out. */ 

316 /* This is for command link throughput :21APR94*/ 

317 op.stat.scalar .write (*'CL Throughput (bps), Priority 1", 

318 fddilp2.total.bits.aC0] / op.sim.time ()); 
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319 op.stat.scalau:. write ("CL Throughput (bps). Priority 2", 

320 lddilp2.total.bits. a Cl] / op.sim.time ()); 

321 op.stat.scalax.write ("CL Throughput (bps). Priority 3", 

322 lddilp2.totad.bit s. a C2] / op.sim.time ()); 

323 op.stat.scalax.write ("CL Throughput (bps), Priority 4 M , 

324 lddilp2.total_bits.aC3] / op.sim.time ()); 

325 op.stat.scalax.write ("CL Throughput (bps). Priority 5", 

326 lddilp2_total_bits_aC4] / op.sim.time ()); 

327 op.stat.scalax. write ("CL Throughput (bps). Priority 6", 

328 lddilp2_total_bits_aC5] / op.sim.time ()); 

329 op.stat.scalax.write ("CL Throughput (bps). Priority 7", 

330 lddilp2_total_bits_aC6] / op.sim.time ()); 

331 op.stat.scalax.write ("CL Throughput (bps). Priority 8", 

332 lddilp2_total_bits_aC7] / op.sim.time ()); 

333 op.stat.scalao*. write ("CL Throughput (bps), Asynchronous", 

334 (lddilp2.totad.bits - lddilp2_total_bits_aC8] ) / op.sim.time ()); 



335 


/* 


(lddilp2_total_bits_aC0] 


+ lddilp2.totad.bits.aCl] + 


*/ 


336 


/* 


lddilp2_total.bits.aC2] 


+ lddilp2.total.bits.aC3] + 


*/ 


337 


/* 


lddilp2.total.bits.a[4] 


+ lddilp2.total.bits.aC5] + 


*/ 


338 


/* 


t ddilp2.tot al.bit s.a [6] 


+ lddilp2.total.bits.aC7]) / 


*/ 


339 


/* 


op.sim.time ()); 







340 op.stat.scalaur.write ("CL Throughput (bps). Synchronous", 

341 lddilp2_total_bits_aC8] /op.sim.time ()); 

342 op.stat.scalaur.write ("CL Throughput (bps), Total", 

343 lddilp2.total.bits / op.sim.time ()); 



344 /* Only one station needs to do this lor the second ring(Ring 1)*/ 

345 il ( !lddi2_sink_scalaur_write) 

346 { 

347 /* set the scalar write t lag */ 

348 lddi2_sink_scalax_write = 1; 

349 op.stat.scadar.write ("Mean End-to-End Delay-1 (sec.). Priority 1", 

350 lddi2_sink_accum_delay_aC0] / lddi2_sink_totad_pkts_aC0] ) ; 
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351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 



376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 



op.stat.scalex. write ("Mean End-to-End Delay-1 (sec .) , Priority 2'*, 
lddi2_sink_accum_delay_aCl] / lddi2.sink_tot2Ll_pkts.aCl] ) ; 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.). Priority 3", 
lddi2_sink_accum_delay_aC2] / lddi2_sink_total_pkts_aC2] ) ; 

op.stat.scalax. write ("Mean End-to-End Delay-1 (sec.). Priority 4", 
lddi2_sink_accum_delay_aC3] / lddi2.sink_tot2Ll.pkts. a [3] ) ; 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.), Priority 5", 
lddi2_sink_accum_delay_aC4] / lddi2_sink.tot2Ll.pkts. a [4] ) ; 

op.stat.scalar.write ("Mean End-to-End Delay-1 (sec.), Priority 6", 
lddi2.sink.accum.delay.a[5] / lddi2_sink_total_pkts_a[5] ) ; 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.). Priority 7", 
lddi2.sink_accum_delay_a[6] / lddi2_sink.tot2Ll_pkts.a[6] ) ; 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.), Priority 8", 
lddi2_sink.accum_delay_a[7] / lddi2.sink_tot2Ll_pkts.aC7]); 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.). Asynchronous" , 
(lddi2.sink.accum_delay - lddi2.sink_accum.delay.a[8] ) / 
(lddi2.sink_total.pkts - lddi2_sink_total_pkts_a[8] ) ) ; 

/* (lddi2_sink_accum_delay_a[0] + lddi2_sink_accum_delay_a[l] + */ 

/* lddi2_sink_accum_delay.a[2] + lddi2_sink.accum_delay.a[3] + ♦/ 

/* lddi2_sink.accum.delay_a[4] + lddi2_sink_accum.delay_a[5] + */ 

/* lddi2.sink.accum_delay.a[6] + lddi2_sink_accum_delay_a[7] ) / */ 

/* (lddi2.sink.total.pkts.a[0] + lddi2_sink.tot2Ll.pkts. a Cl] + */ 

/* lddi2_sink_total_pkts_a[2] + lddi2.sink_total.pkts. a [3] + */ 

/* lddi2.sink_total_pkts_a[4] + lddi2_sink.total.pkts_a[5] + */ 

/* lddi2.sink.total_pkts.a[6] + lddi2_sink.total.pkts.a[7] )) ; */ 



op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.), Synchronous", 
lddi2.sink.accum.delay.a[8] / lddi2_sink.tot2Ll.pkts.aC8] ) ; 

op.stat.scalax.write ("Mean End-to-End Delay-1 (sec.), Total", 
lddi2_sink_accum_delay / lddi2_sink.total.pkts); 

op.stat.scalax.write ( "Throughput- 1 (bps). Priority 1", 
lddi2_sink_total.bits.aC0] / op.sim.time ()); 

op.stat.scalax.write ("Throughput-1 (bps). Priority 2", 
lddi2_sink_total_bits_aCl] / op.sixn.time ()); 

op.stat.scalax.write ("Throughput-1 (bps). Priority 3", 
lddi2_sink_total_bits_aC2] / op.sim.time ()); 

op.stat.scalax.write ("Throughput-l( bps). Priority 4", 
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387 



lddi2_sink_total_bits_aC3] / op.sim.time ()); 



388 

389 

390 

391 

392 

393 

394 

395 

396 

397 



398 

399 

400 

401 

402 



403 

404 

405 

406 



407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 



op.stat.scalar.write ("Throughput-1 (bps), Priority 5", 
lddi2_sink_total_bits_aC4] / op.sim.time ()); 

op_stat_scalar_write ("Throughput-1 (bps). Priority 6", 
lddi2.sink.total.bits.aC5] / op.sim.time ()); 

op.stat.scalar.write ( "Throughput- 1 (bps). Priority 7", 
fddi2.sink_total.bits.a[6] / op.sim.time ()); 

op.stat. scalar. write ("Throughput-1 (bps). Priority 8", 
fddi2.sink_total.bits_a[7] / op.sim.time ()); 

op.stat.scalar.write ( "Throughput- 1 (bps). Asynchronous", 
(lddi2_sink.total.bits - lddi2_sink.total_bits_a[8] ) / op.sim.time ()); 



/* 


(1 ddi2.s ink.t otal.bits.a CO] 


+ 


/* 


lddi2.sink.total_bits.aC2] 


+ 


/* 


1 ddi2.s ink.total.bits.a C4] 


+ 


/* 


1 ddi2.s ink.total.bits.a C6] 


+ 


/* 


op.sim.time ()); 





lddi2_sink.total_bits_a[l] + */ 
lddi2_sink_total_bits_a[3] + */ 
lddi2.sink_total_bits.aC5] + */ 
lddi2.sink.total.bits.aC7]) / */ 

*/ 



op.stat .scalar.wr ite ( "Throughput-1 (bps ) , Synchronous " , 
lddi2_sink.total.bits.aC8] / op.sim.time ()); 

op.stat. scalar. write ("Throughput-1 (bps), Total", 
lddi2_sink.total.bits / op.sim.time ()); 



op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.)t Priority 1", 
lddi2.sink_pe2A.delay.aC0] ) ; 

op.stat.scalar.write ("PeaA End-to-End Delay-1 (sec.)* Priority 2", 
lddi2_sink_peak_delay_aCl] ) ; 

op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.), Priority 3", 
lddi2_sink_peak.delay.aC2] ) ; 

op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.), Priority 4", 
lddi2.sink.peak.delay.aC3]) ; 

op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.), Priority 5", 
lddi2.sink.peak_delay.aC4] ) ; 



op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.), Priority 6", 
lddi2.sink.peak.delay.aC5]) ; 
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419 

420 



op.stat.scalar.write ("Peak End-to-End Delay-1 (sec.), Priority 7", 
lddi2_sink_peak_delay_a[6]) ; 



421 

422 



op.stat.scalar. write ("Peak End-to-End Delay-1 (sec.)* Priority 8", 
lddi2_sink_peak_delay_a[7] ) ; 



423 

424 



op.stat.scalar.write ("Peak End-to-End Delay- 1 (sec.), Synchronous", 
lddi2_sink_peak_delay_a [8]) ; 



425 

426 



op.stat.scalar.write ("Peak End-to-End Del ay- 1 (sec.), Overall" 
lddi2_sink_peak_delay) ; 



427 /* Write the TTRT value lor ring 0. This preserves */ 

428 /* the old behavior lor single-ring simulations. */ 

429 op.stat.scalar.write ("TTRT (sec.) - Ring 1", 

430 Iddi.t.opr [1]); 

431 /* 12JAN94: obtain ollered load inlormation Irom the Environment */ 

432 /* lile; this will be used to provide abscissa inlormation that */ 

433 /* can be plotted in the Analysis Editor (see "Iddi.sink" STATS */ 

434 /* state. To the user: it's your job to keep these current in */ 

435 /* the Environment File. -Nix */ 

436 op_ima_sim.attr.get (OPC.IHA.DOUBLE, "total.ollered.load.l" , ftOllered.Load) ; 

437 op.ima_sim_attr.get (OPC.IMA.DOUBLE, "asynch.ollered.load.l" , &Asynch_011ered_Load) ; 



438 /* 12JAN94: write the total ollered load lor this run */ 

439 op.stat.scalar.write ("Total Ollered Load-1 (Mbps)", 

440 Oil er ed.Load) ; 

441 op.stat.scalar.write ("Asynchronous Ollered Load-1 (Mbps)", 

442 Asynch.011ered.Load) ; 



445 /** blocking alter enter executives ol unlorced state. **/ 

446 FSM.EXIT (3 , sp.lddi.sink) 



447 /** state (STATS) exit executives **/ 

448 FSM.STATE.EXIT.UNFORCED (l, statel.exit.exec, "STATS") 

449 { 

450 > 



451 /** state (STATS) transition processing **/ 

452 FSM.TRANSIT.MISSING ("STATS") 

453 /* */ 



443 > 

444 > 
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454 /** state (INIT) enter executives **/ 

455 FSM.STATE.ENTER.FORCED (2, state2.enter.exec, M INIT M ) 

456 { 

457 /* get the gshandles of the global statistic to be obtained */ 

458 /* 20JAN94: set array format */ 



459 thru2.gshandle.a[0] 

460 thru2_gshandle_a[l] 

461 thru2.gshandle.a[2] 

462 thru2.gshandle.a [3] 

463 thru2_gshandle_a[4] 

464 thru2_gshandle_a[5] 

465 thru2_gshandle.a[6] 

466 thru2_gshandle.a[7] 

467 thru2.gshandle.a [8] 

468 thru2.gshandle.a[9] 

469 thru2_gshandle 



op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 



( M pri 1 throughput- 1 
( M pri 2 throughput-1 
( M pri 3 throughput-1 
( M pri 4 throughput-1 
( M pri 5 throughput -1 
("pri 6 throughput- 1 
("pri 7 throughput -1 
( M pri 8 throughput- 1 
("synch throughput- 1 
("async throughput-1 
("total throughput-1 



(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 

(bps)") 



470 m2.delay.gshandle.a[0] 

471 m2.delay.gshandle.a[l] 

472 m2.delay_gshcmdle_aC2] 

473 m2_delay.gshandle_a[3] 

474 m2.delay.gshandle.a[4] 

475 m2_delay_gshandle_a[5] 

476 m2_delay.gshandle_a[6] 

477 m2_delay_gshandle_a[7] 

478 m2.delay.gshandle.a[8] 

479 m2.delay.gshandle_a[9] 

480 m2_delay_gshandle 



op.stat.globsil.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 
op.stat.global.reg 
op_stat_global_reg 
op.stat.global.reg 
op.st at .global _reg 
op.st at .global .reg 
op.stat.global.reg 
op.st at .global.reg 



("pri 1 mean delay-1 
("pri 2 mean delay-1 
("pri 3 mean delay-1 
("pri 4 mean delay-1 
("pri 5 mean delay-1 
("pri 6 mean delay- 1 
("pri 7 mean delay- 1 
("pri 8 mean delay- 1 
("synch mean delay-1 
("async mean delay-1 
("total mean delay-1 



(sec.)") 
(sec.)") 
(sec.)") 
(sec.)") 
(sec.)") 
(sec. )") 
(sec. )") 
(sec.)") 
(sec.)") 
(sec.)") 
(sec.)") 



481 ete2.delay.gshandle.a[0] 

482 ete2.delay.gshandle.a[l] 

483 ete2.delay.gshandle.a[2] 

484 ete2_delay_gshandle.a[3] 

485 ete2.delay.gshandle.a[4] 

486 ete2_delay.gshandle.a[5] 

487 ete2_delay.gshandle.a[6] 

488 ete2.delay_gshandle.a[7] 

489 ete2.delay_gshandle_a[8] 

490 ete2.delay.gshandle 



op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 

op.stat.global.reg 



("pri 1 
("pri 2 
("pri 3 
("pri 4 
("pri 5 
("pri 6 
("pri 7 
("pri 8 
("synch 
("total 



end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 

end-to-end 



delay-1 

delay-1 

delay-1 

delay-1 

delay-1 

delay-1 

delay-1 

delay-1 

delay-1 

delay-1 



491 t2_gshandle_a[0] 

492 t2_gshandle_a[l] 

493 t2_gshandle_a[2] 

494 t2_gshandle_a[3] 

495 t2_gshandle_a[4] 

496 t2_gshandle_a[5] 

497 t2_gshandle_a[6] 

498 t2_gshandle_a[7] 



= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 
= op.stat.global.reg ("pri 



1 CL throughput (bps)"); 

2 CL throughput (bps)"); 

3 CL throughput (bps)"); 

4 CL throughput (bps)"); 

5 CL throughput (bps)"); 

6 CL throughput (bps)"); 

7 CL throughput (bps)"); 

8 CL throughput (bps)"); 



(sec. )") 
(sec.)") 
(sec. )") 
(sec. )") 
(sec.)") 
(sec. )") 
(sec. )") 
(sec.)") 
(sec. )") 
(sec. )") 
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499 t2_gshandle.a[8] = op.stat.global.reg ("synch CL throughput (bps)"); 

500 t2_gshandle_a[9] = op.stat.global.reg ("async CL throughput (bps)"); 

501 t2.gshandle = op.stat.global.reg ("total CL throughput (bps)"); 



502 > 



503 /** state (INIT) exit executives **/ 

604 FSM.STATE.EXIT.FORCED (2, state2.exit.exec, "INIT") 

605 { 

606 > 



607 /** state (INIT) transition processing **/ 

608 FSM.INIT.COND (END.OF.SIH) 

609 FSM.DFLT.COND 

610 FSH.TEST.LOGIC ("INIT") 

511 FSM.TRANSIT.SWITCH 
612 < 

513 FSM.CASE.TRANSIT (0, 1, statel.enter.exec , ;) 

614 FSM.CASE.TRANSIT (1, 0, stateO.enter.exec, ;) 

615 > 

616 /* */ 



617 > 



618 FSM.EXIT (2, sp.f ddi.sink) 

619 > 



620 void 

521 sp_fddi.sink.svar (prs.ptr , var.name, var.p.ptr) 

622 sp.fddi.sink.state *prs.ptr; 

623 char * var.name, **var_p_ptr; 

624 { 

526 FIN (sp.fddi.sink.svax (prs.ptr)) 

626 * var.p.ptr = VOS.NIL; 

627 if (Vos.String.Equal ("thru2_gshandle" , var.name)) 

628 *var_p_ptr = (char *) (Aprs.ptr->sv_thru2_g*handle) ; 

629 if (Vos.String.Equal ("m2_delay_gshandle" , var.name)) 

630 *var_p_ptr = (char *) (&prs.ptr->sv.m2.delay_gshandle) ; 

631 if (Vos.String.Equal ("ete2_delay.gshandle" , var.name)) 
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532 *var_p.ptr = (char *) (fcprs_ptr->sv_ete2.delay.gshandle) ; 

533 if (Vos.String.Equal ( M thru2_gshandle.a M , var.name)) 

534 *var_p_ptr = (char *) (prs.ptr->sv.thru2.gshandle_a) ; 

535 if (Vos.String.Equal ( M m2.delay.gshandle.a M , var.name)) 

536 *var_p_ptr = (char *) (prs_ptr->sv_m2_delay_gshandle_a) ; 

537 if (Vos.String.Equal ("ete2_delay_gshandle_a n , var.name)) 

538 *var_p.ptr = (char *) (prs.ptr->sv.ete2.delay.gshandle.a) ; 

539 if (Vos.String.Equal ( M t2_gshandle M , var.name)) 

540 *var_p_ptr = (char *) (fcprs_ptr->sv.t2_gshandle) ; 

541 if (Vos.String.Equal ("t2_gshandle.a M , var.name)) 

542 *var_p_ptr = (char *) (prs.ptr->sv.t2.gshandle.a) ; 

543 if (Vos.String.Equal ( M my_id M , var.name)) 

544 *var_p_ptr = (char *) (fcprs.ptr->sv.my.id) ; 

545 FOOT; 

546 > 



547 void 

548 sp.fddi.sink.diag () 

549 { 

550 double delay, creat.time; 

551 Packet* pkptr; 

552 Packet* pkptrl ; /*5APR94*/ 

553 int src.addr, my.addr; 

554 int dest.addr;/*14APR94*/ 

555 Ici* from_mac.ici.ptr; 

556 double fddi.sink.ttrt ; 



557 FIH ( sp.f ddi.s ink.diag ()) 



558 FOOT; 

559 > 



560 void 

561 sp.fddi.sink.terminate () 

562 { 

563 double delay, creat.time; 

564 Packet* pkptr; 

565 Packet* pkptrl ; /*5APR94*/ 

566 int src.addr, my.addr; 

567 int dest_addr;/*14APR94*/ 

568 Ici* from.mac.ici.ptr; 

569 double fddi.sink.ttrt; 
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570 FIR (sp_fddi_sink_tenainate ()) 



571 FOUT; 

572 > 



573 Compcode 

574 sp_fddi_sink_init (pr_state_pptr) 

575 sp_fddi_sink_state **pr_state_pptr; 

576 { 

677 static VosT_Cm_Obtype obtype = 0PC_NIL; 

578 FIH (sp_fddi_sink_init (pr_state_pptr)) 

579 if (obtype == OPC.NIL) 

580 { 

581 if (Vos_Catmem_Register ("proc state vars (sp_lddi_sink)" , 

582 sizeol (sp_fddi_sink_state) , Vos_Hop, Aobtype) == V0SC_FAILURE) 

583 FRET (0PC_C0MPC0DE_FAILURE) 

584 > 

585 it ((*pr_state_pptr = (sp_f ddi_sink_state*) Vos_Catmem_Alloc (obtype, 1)) == 0PC_HIL) 

586 FRET (0PC_C0MPC0DE_FAILURE) 

687 else 

588 { 

589 (*pr_state_pptr)->current_block = 4; 

590 FRET (0PC_C0MPC0DE_SUCCESS) 

591 > 

592 > 
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APPENDIX G 

CDL MODEL ERROR ALLOCATION CODE 

“cdl_pt_error.ps. c” 



The line numbering in this appendix is within this thesis only, and does not corre- 
spond with that seen in OPNET’s text editors. 

1 /* cdl_pt_error.ps.c */ 

2 /* Customized error allocation model lor point-to-point link transceiver pipeline */ 

3 /***************************************************************/ 

4 /* Last modified by Selcuk Karayakaylar */ 

5 /* 22APR94 */ 

6 /***************************************************************/ 

7 #include <opnet.h> 

8 #include <math.h> 



9 /* Define a convenient macro for computing */ 

10 /* factorials using the gamma function */ 

11 #define log_f actorial(n) lgamma ((double) n + 1.0) 



12 


void 




13 


cdl_pt_error 


(pkptr) 


14 


Packet* 


pkptr; 


15 


{ 




16 


Objid 


link_objid; 


17 


double 


pe, r, p.accum, p.exact; 


18 


double 


iog-P 1 * log.p2, log.arrange; 


19 


double 


duty.cycle; /* 31MAR94 */ 


20 


double 


jam.length, j am_ber, int_bet_jamlen, ber_bet_jamlen;/*29MAR94* 


21 


double 


time_stamp; /* time stamp for the packet arriving time */ 


22 


double 


offset; /* 1APR94 */ 


23 


int 


invert.errors = 0PC_FALSE, seg.size, num_errs; 


24 


int 


j ammer_t ype ; /*26APR94*/ 


25 


/♦int 


channel.index;*/ /* 4APR94 */ 



/ 



26 /** Compute the number of errors assigned to the given packet **/ 

27 /** based on its length and the bit error probability. **/ 

28 FIF (cdl_pt_error (pkptr)) 

29 /*Make a time stamp to see whether the packet is in jamming period or not */ 

30 time_stamp = op_sim_time() ; 

31 /*printf ("time.stamp = 7.16 . 12f\n M , time.stamp) ; */ 

32 /* Obtain object id of point-to-point link carrying transmission. */ 

33 link_objid = op_td_get_int (pkptr, 0PC_TDA_PT_LIFK_0BJID) ; 
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34 /* Obtain the channel index lor the particular link */ 

35 /* Determine which channel the packet is on *//*30MAR*/ 

36 /* channel.index = op.td.get.int (pkptr ,OPC_TDA_PT.CH_INDEX) ; *//*4APR94*/ 

37 /* Obtain the bit-error probability ol the channel. */ 

38 /* op.ima_obj_attr.get (link.objid, "ber", Ape); *//*ignore this attribute 31HAR94* 

39 /* Obtain the extended attributes lor the point-to-point link */ 

40 /* These attributes sire appended in order to simulate jamming leatures */ 

41 /* 29MAR94 */ 



42 op.ima_obj_attr.get (link.objid, 

43 op.ima_obj_attr.get (link.objid, 

44 op.ima_obj_attr.get (link.objid, 

45 op.ima_obj_attr.get (link.objid, 

46 op.ima.obj_attr.get (link.objid, 

47 op.ima_obj_attr.get (link.objid. 



1 j am.length" , A j am.length) ; 

1 j am_ber M , A j am.ber ) ; 

interval.bet.jam.len" , Aint.bet. jamlen) ; 
'ber.bet.jam.len" , Aber.bet. jamlen) ; 
init.jam.ollset" # Aollset) ; 
jaunmer.type" , Ajammer.type) ; 



48 /* Obtain the length ol the packet. */ 

49 seg.size = op.pk_total_size.get (pkptr) ; 






50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 
63 



/* Determine the jammer type in use:26APR94 */ 

/* Check il pulsed jammer is in use */ 
il (jammer. type == 0) 

{ 

/* Randomize the jamming durations */ 

/* These durations are randomized with unilorm distribution */ 

/* in range [0, duration[. User should be aware ol these */ 

/* attributes specilied in the environment lile. They are max values */ 
/* lor those particular durations */ 
jam.length = op.dist.unilorm( jam.length) ; 
int.bet. jamlen = op.d is t_unilorm(int .bet .jamlen) ; 

> 

/* Otherwise, channel swept jammer is in use. Jamming durations */ 

/* should not be randomized to keep consecutive pulses in order. */ 



64 /* Compute duty cycle lor jammming */ 

65 duty.cycle = jam.length + int.bet. jamlen; 

66 /* Check time stamp il it is in the initial jam ollset period */ 

67 /* All BER's are unilormly distributed in range [0, ber[, so that */ 

68 /* recilistic representation is provided; User should be aware ol */ 

69 /* these attributes specilied in the environment lile. They are max values */ 

70 /* lor those particular bers*/ 

71 il (time.stamp < ollset) 

72 pe * op.dist_unilorm(ber.bet_ jamlen) ; /* the packet is still not in the jamming 

73 /* period */ 

74 else 

75 { 

76 /* Check packet is in jamming period */ 
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77 

78 

79 

80 

81 

82 

83 

84 

8S 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 



if ( fmod(time_stamp,duty_cycle) <= jam.length ) 

pe = op_dist_uniform( jam.ber) ; /♦ the packet is in jamming period, */ 

/♦ random "pe" to be computed as jam.ber */ 

else 



> 



pe = op_dist_uniform(ber_bet_jamlen) ; 

/♦ random "pe" to be 



/♦ packet is in un jammed period ♦/ 
computed as ber.bet.jamlen ♦/ 



/♦This part computes num.errs t or the packet ♦/ 

/♦ Case 1: it the bit error rate is zero, so is the number o t errors. ♦/ 
if (pe ==0.0 || s eg. size == 0) 
num.errs = 0; 

/♦ Case 2: if the bit error rate is 1.0, then all the bits are in error. ♦/ 

/♦ (note however, that bit error rates should not normally exceed 0.5).*/ 
else if (pe >= 1.0) 

num.errs = seg.size; 

/♦ Case 3: The bit error rate is not zero or one. ♦/ 
else 

/♦ If the bit error rate is greater than 0.5 and less than 1.0, invert ♦/ 

/♦ the problem to find instead the number of bits that axe not in error ♦/ 

/♦ in order to accelerate the performance of the algorithm. Set a flag ♦/ 

/♦ to indicate that the result will then have to be inverted. ♦/ 

if (pe > 0.5) 

{ 

pe = 1.0 - pe; 
invert_errors = 0PC.TRUE; 

> 



/♦ The error count can be obtained by mapping a uniform random number ♦/ 

/♦ in [0, 1[ via the inverse of the cumulative mass function (CMF) ♦/ 

/♦ for the bit error count distribution. ♦ 



/♦ Obtain a uniform random number in [0, 1[ to represent ♦/ 

/♦ the value of the CDF at the outcome that will be produced. ♦/ 

r = op_dist .uniform (1.0); 

/♦ Integrate probability mass over possible outcomes until r is exceeded. ♦/ 

/♦ The loop iteratively corresponds to "inverting" the CMF since it finds ♦/ 

/♦ the bit error count at which the CMF first meets or exceeds the value r. ♦ 

for (p.accum = 0.0, num.errs = 0; num_errs <= seg_size; num_errs++) 

/♦ Compute the probability of exactly 'num.errs' bit errors occurring. ♦ 

/♦ The probability that the first 'num^errs' bits will be in error ♦ 

/♦ is given by pow (pe, num_errs). Here it is obtained in logarithmic ♦/ 

/♦ form to avoid underflow for small 'pe 1 or large 'num. errs. jam' . 
log.pl = (double) num.errs ♦ log (pe); 
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120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 



/* Similarly, obtain the probability that the remaining bits will not 
/* be in error. The combination of these two events represents one 
/* possible configuration of bits yielding a total of , num_errs > errors 
log_p2 = (double) (seg.size - num.errs) * log (1.0 - pe ) ; 

/* Compute the number of arrangements that are possible with the same 
/* number of bits in error as the particular case above. Again obtain 
/* this number in logarithmic form (to avoid overflow in this case). 

/* This result is expressed as the logarithmic form of the formula for 
/* the number N of combinations of k items from n: N = n!/(n-k)!k! 

log.arrange = log.factorial (seg.size) - 
log_f actorial (num_errs) - 
log.factorial (seg_size - num.errs); 

/* Compute the probability that exactly 'num.errs ' are present */ 

/* in the segment of bits, in any arrangement, 
p.exact = exp (log .arrange + log_pl + log_p2); 

/* Add this to the probability mass accumulated so far for previously 
/* tested outcomes to obtain the value of the CMF at outcome=num_errs*/ 
p.accum += p.exact; 

/♦ , num_errs > is the outcome for this trial if the CMF meets or exceeds 
/* the uniform random value selected earlier, 
i f (p_accum >= r) 
break; 

> 

/* If the bit error rate was inverted to compute correct bits instead, then * 
/* reinvert the result to obtain the number of bits in error, 
if (invert .errors == 0PC.TRUE) 
num.errs = seg.size - n urn _ errs ; 

> 

/* printf ( M num_of_ errors = y.5d\n" , num.errs); */ 

/* Set number of bit errors in packet transmission data attribute. */ 
op.td_set.int (pkptr, OPC.TDA.PT.NUM.ERRORS , num.errs) ; 

FOOT 

> 
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APPENDIX H 

SAMPLE ENVIRONMENT FILE FOR 
PULSED JAMMER 



# cdl4_lb0 j amO . el 

# sample simulation configuration file for 

# two interconnected 10 station network in the 

# existence of pulsed jammer interference (137.088 Mbps channel hierarchy ) 

# with circular allocation load balancing algorithm 

#♦♦♦ Attributes related to loading used by "fddi.gen" ♦♦♦ 

# station addresses 

* . ringO . f 0 . mac . stat ion_address : 0 
♦. ringO. fl .mac. station. address : 1 

# . ringO. f2. mac. stat ion. address : 2 
* . ringO . f 3 .mac . stat ion. address : 3 
♦. ringO. f 4. mac. stat ion. address : 4 
* . ringO . f 5 . mac .stat ion. addres s : 5 
* . ringO . f 6 . mac . stat ion. addres s : 6 
* . ringO . f 7 . mac . stat ion. address : 7 
* . ringO . f 8 . mac . stat ion. address : 8 
* . ringO . f 9 . mac . stat ion. address : 9 

♦ .ringl .fO. mac. stat ion.address : 10 
♦.ringl .f 1 .mac. stat ion. address : 11 
♦ . ringl . f 2 . mac . stat ion. address : 12 
♦ . ringl .f 3 .mac . stat ion. addres s : 13 
* . ringl . f 4 . mac .stat ion. addres s : 14 
* . ringl . f 5 .mac . stat ion. address : 15 
* .ringl .f 6 .mac . stat ion. address : 16 
♦ . ringl . f 7 . mac . stat ion. address : 17 
* . ringl . f 8 . mac . stat ion. address : 18 
* . ringl . f 9 . mac . stat ion. addres s : 19 



♦. ringO. ♦. mac. ring.id :0 
♦.ringl .♦.mac. ring.id :1 



# Specific stations may be tailored by specifying the full name: 

# for example, top. ringO .f 19 . llc.src .async.mix : .5 

# This means all stations must be specified, or individuals 

# may be named after the generic is specified. 

# destination addresses for random message generation 
#"top. ringO. fO. llc.src. low dest address" : 

#"top.ring0.f0. llc.src. high dest address" : 
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M * .ringO. * . llc_src. low dest address": 10 

"* .ringO. * .llc.src.high dest address": 19 

"*.ringl.*.llc_src.low dest address": 0 

"*.ringl.*.llc_src.high dest address": 19 

# range of priority values that can be assigned to packets; FDDI 

# standards allow for 8 priorities of asynchronous traffic. MIL3's 

# original model is modified to allow each station to generate multiple 

# priorities, within a specified range. 

"*.* .llc.src.high pkt priority" : 7 

"*.*.llc_src.low pkt priority" : 0 



# arrival rate(frames/sec) , and message size (bits) for random message 

# generation at each station on the ring. 



"*.*.*. arrival rate" : 250 

"*.*.*. mean pk length" : 20000 

#"ring0.f 9.*. arrival rate": 0 

#"ring0.f9.*.mean pk length": 0 

#"ringl.f 9.*. arrival rate": 0 

#"ringl.f9.*.mean pk length": 0 



# 7APR94 - S.Karayakaylar 

# determine which load balancing algorithm is in use in the CPNI 

# User should specify the algorithm before simulation. 

# 

# 0 (zero) > circular load balancing algorithm (default) 

# 1 (one) > empty allocation algorithm 

# 

"top. ringO. f9.11c_sink. load balancing algorithm": 0 

# 15APR94 determine the station address of the network interfaces in 

# both rings. 

# CPNI 

"t op. ringO. f 9.11c_sink. station_address" : 9 

# SPNI 

"top.ringl .f 9.11c_sink. station_address" : 19 

# 12DEC93: total offered load is the sum of all stations' loads (Mbps). 

# Compute this by hand; this value is useful for generating 

# scalar plots where offered load is the abscissa. 



total. of f ered_load_0 : 50 
asynch.off ered_load_0 : 45 
total.off ered.load.l : 50 
asynch.of fered.load.l : 45 



# set the proportion of asynchronous traffic 

# a value of 1.0 indicates all asynchronous traffic 

"*.*.*.async_mix" : 0.9 
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#*** Ring configuration attributes used by "fddi.mac" 

# allocate percentage of synchronous bandwidth to each station 

# this value should not exceed 1 for all stations combined; OPNET does not 

# enforce this; 01FEB94: this must be less than 1; see equation below 

"♦.♦.mac. sync bandwidth" : 0.08955675 

# M top . ringO . f 9 . mac . sync bandwidth" : 0.0 

# Target Token Rotation Time (one half of maximum synchronous response time) 

# (This is commented out for compatibility with the fddi.script, which 

# sets T_Req on the simulation command line; remove the comment pound-sign 

# below to make this environment file self-sufficient.) 

# SUM(SAi) + D.Max + F.Max + Token.Time <= TTRT 

# Powers gives TTRT = 10 ms as necessary for voice transmission; in "BOHeS", 

# D_Max + F_Max + Token_Time = 1.97888 ms. 

"♦.♦.mac.T.Req" : .004 



# Index of the station which initially launches the token 

# 17APR94 : -Karayakaylar 

# This index should be greater than the maximum station number 

# Bridge stations spawns token for interconnected simulation by default, 
"spawn station": 20 



# Delay incurred by packets as they traverse a station's ring interface 

# see Powers, p. 351 for a discussion of this (Powers gives lusec, 

# but 60.0e-08 agrees with Dykeman k Bux) 
station.lat ency : 60 . 0e-08 



# Propagation Delay separating stations on the ring. 

# If propagation delay is 5.085 microsec/km, this corresponds to 

# to a 50 station ring with a circumference of 50 km. 

# (The value given for propagation delay corresponds to Powers, and to 

# Dykeman k Bux) 
prop_delay : 5 . 085e-06 

# CDL link related attributes -Karayakaylar 7APR94 

# The attributes below are specified with respect to the jammer type 

# There are two types of jamming models which the CDL is exposed to. 

# 

# (1) Pulsed jammer (jammer_type = 0) 

# (2) Channel-swept jammer (jammer.type =1) 

# 

# I0TE:For pulsed jammer init_jam_offset may be zero, whereas a proper 

# offset should be specified for channel-swept jammer. 
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# jam.length, jam.ber, interval.bet_jam.len, ber.bet.jam.len are maximum 

# values in the case of pulsed jammer since they are randomized in the 

# error allocation pipeline stage. 

# For channel-swept jammer only jam.ber and ber.bet.jam.len attributes are 

# maximium values to be randomized. 

# return link ls.O to ls.3 

# command link ls.4 

* .ls.O. jam.length: 0.05 

* . ls.l . j am.length: 0 . 02 

* . ls.2 . jam.length: 0 . 01 

*. Is. 3. jam.length: 0.09 

* . ls_4 . jam.length: 0 . 06 

* . ls.O .jam.ber : 2e-3 

* . ls.l .jam.ber: 2e-3 

# . ls.2. jam.ber: 2e-3 

* . ls.3 . j am.ber : 2e-3 

* .ls.4. jam.ber : 0.0 

♦.ls.O. int erval.be t.jam.len: 0.03 

♦.ls.l . interval.bet.jam.len: 0.03 

♦.ls.2. interval.bet.jam.len: 0.03 

♦ .ls.3 . interval.bet.jam.len: 0.03 

♦ . ls.4 . int erval.bet. j am.len : 0.03 

♦.ls.O. ber.bet.jam.len: 2e-6 

♦ .ls.l .ber.bet.jam.len: 2e-6 

♦ . ls.2 . ber.bet. j am.len : 2e-6 

♦ .ls.3 .ber.bet.jam.len: 2e-6 

* . ls.4 . ber.bet. j am.len : 0.0 

♦ .ls.O. init.jam.offset : 0.0 

♦.ls.l . init.jam.offset : 0.0 

*.ls_2. init.jam.offset: 0.0 

*. Is. 3. init.jam.offset: 0.0 

♦.ls.4. init.jam.offset: 0.0 

♦ .ls.O . jammer.type : 0 

* . ls.l . jammer.type : 0 

♦.ls.2. jammer.type: 0 

*. Is. 3. jammer.type : 0 

♦.ls.4. jammer.type : 0 

# Return and command link propagation delays are specified as 60 msec. 

♦.ls.O .delay : 0.06 

♦. ls.l. delay : 0.06 

*. Is. 2. delay : 0.06 

♦ .ls_3 .delay : 0.06 

♦. ls.4. delay : 0.06 

#♦♦♦ Simulation related attributes 

# Token Acceleration Mechanism enabling flag. 

# It is reccomended that this mechanism be enabled for most situations 

# 16APR94 : for bridged fddi.cdl.interconnection network this flag 

# must be zero. Otherwise, program fault occurs. -Karayakaylar 
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accelerate.token: 0 



# Run control attributes 

seed: 10 

duration: 1 

verbose.sim: TRUE 

upd_int: .1 

os_f ile : cdl4_lb0 j amO 

# (This is commented out lor compatibility with the fddi.script, which 

# sets the output vector file on the simulation command line; remove the 

# comment pound-sign below to make this environment file self-sufficient.) 
ov_file: cdl4_lb0jam0 



# Opnet Debugger (odb) enabling attribute 

# debug: TRUE 
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APPENDIX I 

SAMPLE ENVIRONMENT FILE EXCERPT 
FOR CHANNEL-SWEPT JAMMER 



# cdl4_lbl jaml . el 

# sample simulation configuration file for 

# two interconnected 10 station network in the 

# existence of channel-swept jammer interference (137.088 Mbps channel hierarchy ) 

# with empty selection load balancing algorithm 



# CDL link related attributes -Karayakaylar 7APR94 

# The attributes below axe specified with respect to the jammer type 

# There are two types of jamming models which the CDL is exposed to. 

# 

# (1) Pulsed jammer (jammer.type = 0) 

# (2) Chann el- swept jammer (jammer.type = 1) 

# 

# HQTE:For pulsed jammer init.jam.offset may be zero, whereas a proper 

# offset should be specified for chann el- swept jammer. 

# jam.length, jam.ber, interval.bet. jam.len, ber.bet. jam.len are maximum 

# values in the case of pulsed jammer since they are randomized in the 

# error allocation pipeline stage. 

# For channel-swept jammer only jam.ber and ber.bet. jam.len attributes are 

# maximium values to be randomized. 



# return link ls.O to ls_3 

# command link ls_4 

♦ . ls_0 . jam_length : 0.02 

*.ls_l . jam.length: 0.02 

* . Is. 2 . jam.length: 0 . 02 

* . ls.3 . jam.length: 0 . 02 

* . ls_4 . jam.length: 0 . 02 

♦ . ls_0 . jam.ber : 2e-3 

*.ls_l. jam.ber: 2e-3 

♦ . ls.2 . jam.ber : 2e-3 

♦ . ls_3 . jam.ber : 2e-3 

* . ls.4 . jam.ber : 0.0 

*.ls_0. interval.bet.jam.len: 0.06 

*.ls_l . interval.bet.jam.len: 0.06 

♦ . Is. 2 . interval.bet. jam.len: 0 . 06 

♦.Is. 3. interval.bet. jam.len: 0.06 

♦ . ls.4 . int erval.bet. j am.len: 0 . 06 

♦ . ls.O . ber.bet . j am.len : 2e-6 

*. Is. 1 .ber.bet. jam.len: 2e-6 
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* . ls_2 . ber.bet. j am_len : 

* . ls_3 . ber.bet. j am.len : 

* . ls_4 . ber.bet. j am_len : 

* . ls_0 . init. jam. of! set : 

* . ls.l . init. jam.of f set : 
*.ls_2. init.jam.off set : 

* . ls_3 . init.jam.oll set : 

* .ls_4. init.jam.of f set : 

* . ls.O . j ammer.type : 1 

*.ls_l .jammer. type: 1 

*.ls.2. jammer.type: 1 

*.ls.3. jammer.type: 1 

*.ls_4. jammer.type: 1 



2e-6 

2e-6 

0.0 

0.0 

0.02 

0.04 

0.06 

0.0 
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